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はじめに 


コンピュータ“【心にも色々なものがありますが、1つだけすべてに共通して 
いることがあります。それは、最終的には必ずマシン語になって、あるいはマ 
シン語によって動いているという事実です。 

フランス語、英語、スペイン語、日本語……。言葉に M 類があるように、マ 
シン語にもいくつかの種類があります。通常、ニモニックによるアセンブリ言 

語もマシン語といいますが、 Z 80、 8080、8086、6502、6809、80286、80386…… 

など、 CPU の違いによってマシン語（ニモニック）はバラバラです。さらに、 
人問の i 〖葉に方けがあるように、マシン語にはハードゥエアの違いという方言 
以上に面倒な壁が存在しています。 

そのため、同じ Z 80 を搭載した コンピュータ でも' 実際の用法は機秫によって 
まったく遠うものとなります。その結果、 CPU 別に マシン 語の解説をしようと 
すると、どうしてもニモニックそのものの解説が中心になりがちです。また、 
機樋別に マシン 語を解説しようとすると、今度は ハー ドウ エア•コン ト ロール 
に関する説明が必須となり、プログラムは急激に現実味を带びたものになって 
しまいます。 

そもそも、マシン語というものは複数の命令によって意味を成す言語ですか 
ら、ニモニックは単なるアルファベット的な存在に過ぎません。したがって、 

本米ならば基本的なアルゴリズムや基礎テクニックをマスターしてから、現実 
的なプログラムへと進むべきものです。しかし、それではマシン語に対する興 
味を持続することが困難となるので、とりあえずゲームなど楽し いこ とを目標 
にマシン語を覚えるわけです。 

そこで、たとえ順序は逆であっても、ある程度マシン語をマスターしたなら、 
改めてゆっくりと基礎テクニックを振り返って ほしいの です。なぜなら、 ハー 
ドウエアをコントロールすることはマシン語の ほんの一 端であり、その前後の 
プロセスにこそマシン語の真のテクニックがあるからです。 





マシン語プログラムを組む人の中には、プログラムの無駄やアルゴリズムな 
ど、どうせアセンブルすれば隠れてしまうという人もいます。これは、マシン 
語の基礎を省いてしまったことの弊害かもしれません。せっか〈党えたマシン 
語ですから、面白くないこともそれなりに知っておくことが大切なのです。 

とはいえ、基礎テクニックが基礎のままではヤッパリ面白くありません。そ 
こで、マンガを読むような気楽な気分で、つまらない基礎を知識の一部にして 
しまいましょう。本書の基礎テクニックは、いわばブログラムの化粧品のよう 
なもの。ちょっぴりブログラムにオシャレをするだけで、プログラムが見違え 
るほど光り輝くかもしれません。 

いかにも機械的な マシン 語ですが、アルゴリズムやテク ニッ クというものに 
は芸術に匹敵する‘美’が存在しています。それを追求するかしないか、そのこと 
自休は ブロ グラムを組む人の自由です。しかし、 マシン 語の技術レベルの差と 
は、案外そんなところに潜んでいるのではないでしょうか。 


1989年7月 日灯徹 
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秘伝の書を読む前 


本書は、世界各地から……いや存在さえ定かでない謎の世界からも寄せられ 
た多くの質問の中から、 Z 80 の秘伝として後世に残すべき基礎テクニック ばか 
りを災め、それに応える形で本にまとめ上げた マシン 語の極意書であります。 

その昔、口本には忍者という超能力にも似た秘術を使いこなす人間がい まし 
た。もちろん、忍名•は一朝一夕になれるようなものではありません。常に死と 
竹中合わせの厳しい修行を:®ね、その中からド!分の天分に見合った忍法を休得 
した名•だけが、忍者として一流の称号を得ることができたのです。いくら厳し 
い修行に耐えようとも、オリジナルの忍法を開発できなかった者は、結局は三 
流の施魚忍群として虫けらのような一 * 生を送るしかなかったのです 

しかし、一流の忍者にも老化という力の衰える時期が必ずやってきます。そ 
の時、彼らは自分の秘術を残すために、その極意を巻物に記したといいます。 
こうして、秘術は巻物とともに後継者に受け継がれていくのです。もちろん後 
継名•になれるのは、弟子の中から選ばれた、たった一人の超一流の忍者です。 

……やがて、彼もその巻物に秘術を記す時が訪れます。こういった小さな歴 

史が代々繰り返されることにより、巻物はその流派の r 秘伝忍法帖』、あるいは 

『秘伝の# fj として無上の存在価値を持つようになるのです。つまり、「その巻 

物さえ手にいれれば、無条件で超一流の忍者になれる」という神話が出来上が 
るわけです。 

こうなると、忍名•であればその巻物が欲しくなって当然です。巻物を求めて、 
密吿-、裏切りが横行し、ついには疑心暗鬼から内 ゲバへ と発展、修行を忘れた 
凄惨な争いが起こるようになるのです。その結采、多くの忍者の里が間から間 
へと自滅していったのです。たった1 つの 巻物のために……。 

それほどまでに人の心を狂わす r 秘伝の書 j 。その内容は、実は秘術を 

だしたものではなかったのです。そこには、精神的な極意、つまり平常心を養 
うことの大切さや秘訣が抽象的に記されていただけでした。 

忍の道を極めた者にとって、それこそがあらゆる忍法の極意であり そこ か 
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ら完成された秘術など一代限りのどうでもいい枝葉末節のことだったのです。 
厳しい修行はそれを悟るための手段であり、秘伝とはそういった悟りの境地を 
伝えることなのです。 

すなわち、 r 秘伝の毐』の価値はそれに見合う修行を積んだ者にのみ理解され、 
修行中の者には文面通りの内容しか伝わらないのです。例えば、部屋にある敷 
席の上は誰でも歩くことができますが、千尋•の谷の上に架けられた同じ幅の木 
の上を平然と歩くことができるでしょうか。誰にでもできる簡単なことを、環 
境を選ばず冷静に実行できるようになるには、たゆまぬ基礎訓練が必要なので 
す。その中から自分の才能に適した新しいものを発見した時、オリジナルの秘 
術が生まれるのです。そして、その精神を平易に教えてくれるのが r 秘伝の辔 j 
というわけです。 

マシン語でプログラムを組めるようになると、どうしてもアッと•街く秘術ば 
かりを開発したくなります。しかし、秘術の陰には基礎テクニックがあるので 
す。あくまでも、秘術はその延長線上にあることを忘れないでください。 

本押にある基礎テクニックは、まさにマシン語のための『秘伝の卉 j となる 
べき空気のような存在です。あるいは、「なんだ、こんなもの!!」と思うかもし 
れません。基礎とはそんなものです。しかし、つまらないことを当り前に使え 
るか使えないかで、プログラムは大きく変わってくるのです。本汫の内容がつ 
まらなく思えなくなった時、オリジナルの秘術的マシン語プログラムが完成す 
る時といえるでしょう……。 

なお、本番は Z 80 を CPU とするコンピュータ用のマシン語プログラムを、ア 
センブラ上で開発することを前提に書かれています。したがって、プログラム 
やテク ニッ クを実用化するためには、アセンブラとそれを使用するための基本 
知識が必要です。 

ニモニッ クやアセンブラの必要性がわからない場合は、まずマシン語の雄礎 
を教えてくれるような本を読んでください。本書では、マシン語を党えるため 
の基礎は学ぶことができません。あくまでも、「マシン語テク ニッ クの基礎をマ 
シン語を使って学ぶ」ということが目的です。 

また、お手持ちのアセンブラによっては、二進数が使用できないとか色々な 
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制限があることがあります。そういった入門用のアセンブラをお使いの方は、 

できるだけ早いうちに新しいものを手に入れることを考えたほうがいいでしょ 

う。少なくとも、本書のプログラム程度は問題なくアセンブルできるようなも 

のでないと、マシン語で秘術を凝らすには荷が重いかもしれません。まずは、 

アセンブラを空気のような存在にすること、それが マシン 語の敁初の基礎 テク 
ニックです。 

では、ごゆつくリと秘伝の世界を楽しんでください……。 
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MQfi 秘伝の間答八 


Y イナスの数儀 

はじめまして。ポクはこれまでゲームばかりやっていたので、学校 
では「動くパソコンソフト」と言われています。でも、実は秘かにゲー 
厶から脱皮しようと思い、マシン語を勉強し始めています。マシン語 
といっても、やっとニモニックの意味とアセンブラの必要性がわか 
りかけてきた程度です。 

ところでポクの読んだ本によると、一般にアセンブラのソースリスト上では十進数表記も 
可能と害いてあります。といっても、ニモニックで用意された命令で扱える数値は1バイト 
(0 〜 FF „) か2バイト （0 〜 FFFF „) ですから、十進数でいえば〇〜255まで （1 バイトの場合） 

か〇〜65535まで （2 バイトの場合）となるはずです。でも、でもでも、ですよ。ある時、雑 
誌に…… 


XPOS : DB -10 


となっているソースリストがあったのです。 ハッ キリ言って、これがどういう数値を表すの 

か意味がわかりません。もちろん、十進数ならわかります。いったい、十六進数でマイナス（一） 

とはいくつのことですか。ちなみに、ポクはまだ本物のアセンブラは持っていません。早くア 
センブラがほしい……。 

初心者マー君（埼玉） 

■答 

初心者からの質問というのは未知数の魅力にあふれていて、内容にかかわら 
ずとても新鮮に感じます。っいっい自分の過去を思いだしたりします。 

マシン語が上達するひとつのカギは、自分の持っているアセンブラの能力を 
どこまで発揮できるかにあります。とはいえ、最初から高級なアセンブラを持 
てばいいというものでもありません。あまりアセンブラが高級だと、マシン語 
を覚える前にアセンブラのマニュアルに圧倒されてしまうからです。だから、 
域初は操作が簡単で安価な入門用アセンブラを手に入れ、自分の技術 レベルに 
合わせてグレードアップするほうがいいでしょう。 

ということで、初心者マー君の疑問に一気に答えてしまいましょう。な一に、 
答は簡単です。マシン語で扱う数値は、使う人の気分次第で プラスに でもマイ 
ナスにでもなるのですから。つまり、 ループ （ FF H の次は〇)している数値を 
刖向き（プラス方向）に数えるか、後ろ向き（マイナス方向）に数えるかの違 
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いがあるだけなのです。 

だから、 一 10は十六進数でいえば 
F 6„ というわけです。もし、ここでの 
命令が 「 DB 」 でなく 「 DW 」 であれ 
ば、 一 10は FFF 6 H となります。で 
も、でもでも、ですよ。これで若葉 
マークが取れたなんて思ってはいけ 
ません。なぜなら、演算の結果、サ 
インフラグを見て条件分岐をさせる 
場合は、コンピュータはデータの最 
上位ビットを見て+/—を判定する 
からです。つまり、数値としてはす 
ベてをブラスと考えようがマイナス 
と考えようが自由ですが、コンピュータにその判断をさせる場合は、次のよう 
にキチンと区別をしなければならないということです。 

1バイトの場合： 0 0„〜7 F „ = 〇〜127 (ブラスの数値） 

FF „ 〜8 0„ =— 1 〜一 128 (マイナスの数値） 

2バイトの場合： 0 0 0 0 „〜7 FFF h = 〇〜32767 (ブラスの数値） 

FFFF „ 〜8 0 0 0 „ =— 1〜一32768 (マイナスの数値） 

マイナスという感覚で数値を扱う時は、ここまで理解した上で使用しないと 
思わぬバグに陥ることがあります。そして、こういう一見つまらなさそうな理 
由によるバグが、実は最も恐ろしい落し穴なのです。しかし、マイナスが自由 
に使えるようになると、ブログラムが急に進歩するのも事実です。初心者マー 
君がブログラ • マー君になる日も近いことでしょう。 

なお、雑誌などに発表される簡易的なアセンブラでは、マイナスが使用でき 
ないものもあります。ブログラム技術の向上のためには、そのようなアセンブ 
ラからはできるだけ早く卒業し、せめてマイナスと二進数くらいは扱えるもの 

を準備したいところです。 
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慣用旬賴筹 


ポクはマシン語を覚え始めたばかりの小6です。まだ本当に短い 
ブログラムしか組めません。ポクのマシン語の先生は中2の兄です 
が、その兄も R P G でいうならレベル5 くらいみたいです。ポクはレ 
ベル2 くらいでしょう。 

でも、兄は論理演算について一応知っています。ポクも兄に教わっ 
たので、論理演算をするとビツトがセツトされたり、リセツトされたりするということはわか 


その2 


るようになりました。ただ、まだそれがどんな時に必要になるのかはわかりませんけど。 

ポクは、いま昔の簡単なゲームを見つけて、それを逆アセンブルしてブログラムの仕組みを 
覚えようとしています。昔のゲームっていうのは、これが本当に商品だったのかと思うほどレ 
ベルが低かつたのですね。プロテクトなんて、もちろんナシです。でも、結構論理演算なんか 


も使っているみたいです。 


ところが、よく出てくる論理演算に 「 XORAJ と 「OR AJ というのがあります。紙に害い 
て結果を確認すれば、 A レジスタの値がいくつになるかはわかります。でも、なんのために 
やっているのか、その目的がさっぱりわかりません。昔のゲームといっても、結構むずかしい 
んですね。どうかよろしくお願いします。 


少年アセンブラ（岐阜) 


I 答 

こりやマイツタ!？ 

小学6年生でマシン語を始めてる……だって!？それも、論理演算にまでコ 
マを進めてる . だって!？オドロキ桃の木サンショの木 . です!！ 

しかも、マシン語の勉強法に昔のゲームソフトを解析するなんていうのは、 
将棋でいうなら最初から最善手を指しているような ベス トウヱイです。なにし 
ろ、昔のゲームというのはブログラムの内容がほとんど画面に反映されるよう 
になっていますから、解析してプログラム手順を覚えるには最高の教科書なの 
です0もしかすると、アツという間に先生であるお兄さんの レベルを 越えてし 
まうかもしれません。 


……が、そうなるためには今回の質問のようにブログラムの目的をしっかり 
と理解することが大切です。だから、この本が手元にあるってことは、もはや 
虎の巻を手に入れたようなものです。 

さて、まず論理演算による各 ビットの 変化に ついて ですが、これは マシン 語 
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の入門書であればどんな本にでも載っていることなので、ここでは省きます。 
問題は、いかにして論理演算の用途を把握するかということです。 

その理由は、論理演算については純粋にビット操作が目的の場合と、フラグ 
を変化させるのが目的の場合があるからです。ビット操作が目的の場合は、そ 
のビットの役割を調べればわかりますが、フラグを変化させることが目的の場 
合はいくらビットの内容を調べても結論は出てきません。 

では、どうすればいいかというと、単純に喑記すればいいのです。おもに使 
用される慣用句的論理演算は次の3種類ですから、暗記というほど大袈裟なこ 
とでもありません。とはいえ、使用頻度はビット操作が目的の論理演算より多 
いくらいですから、とりあえずは深く考えずに覚えてしまいましょう。 


XOR A :演算の結果が常にゼロになりますから、 「 LI ) A ,0」 の代わり 

によく用いられます。ただし、演算によるフラグ変化がありま 
すから、そのことを考慮した上で使い分けなければなりません。 
()K A :論理演算によるフラグ変化を利用し 、 「CP 0」の代用として、 

あるいはキヤリーフラグのリセツト用としても使われます。 
and A : 「OK A 」 とまったく同様の目的で使用されます。 


これらは車なる慣用句ですから、論理演算の機能を本当に利用したとはいえ 
ないのですが、プログラムがちょっぴりオシ ャレ したような気分になれるで 
しょう。しかし、本当にカツコイイのは論理演算を2つ以上組み合わせて目的 
のデータを作り出す、というような使い方をしたプログラムなのです（例えば 
X 0 R をとってから AND をとる……等)。 

その時には、 マシン 語のレベルも10を超えているでしょう。でも、小6でそ 
こまでカ ツコ イイと、 ハツ キリいって大人はつらい . 。 
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B=o の黼べ方 

f ‘ 名* *、 * ^ • *• . «. V • ^ W • - • . • • • 、••，、も ノ X •人“ • ノ • • V ^ • -*•# mV V • * • > 心、 • •• • • 睿 • •シ • / • , >• • 

私は現在イギリスはブライトンに住んでいます。本当の目的は一 
人旅ですが、最初の8遇間は英会話のスクールに通い、まずは外国生 
活に憤れるつもりです。いま、ちょうど半分が過ぎたところですが、 
夏なのにカラッとした気候のブライトンにいると、このまま住み着 
きたくなるほどです。 

でも、日本では大学5年生に籍を置いたままですから、スクールの後は予定通り旅をして日 
本へ帰ります。帰国予定は12月です。卒業のほうは、具体的には秘密ですがちゃんと手を打っ 
てありますから大丈夫でしょう。 

ところで、どこにいても気になるのは覚えかけたマシン語のことです。だから、英語の辞書 
とマシン語の本はいつもカバンに入っています。その本には……、 



. A レジスタがゼロかどうかを判定するには 、 「CP 0 J より 「OR AJ がいい.| 

と、害いてあります。理由はプログラムに要するメモリが少なくて済むからだそうですが、 
同じようなことを他のレジスタでもやってみたいのです。うまい方法があったら教えてくだ 
さい。手元にマシンのない私の答は、次のようなものです。 

(例） B レジスタがゼロかどうかを調べる場合 


1- 

LD 

1 

A,B 

OR 

A 


W 大商学部の星（ブライトン) 


|答 

ム、 この男性はどこかで見かけたことがある……。それも、つい最近などと 
いうものではなく、なぜか生まれた時から現在まで、そのすべてを知っている 
ような気がしてならないのだが……それが誰なのかはわからない……ウ 〜ム。 

マシン語を始めたばかりは、プログラムの長さとか速度などまるで気になら 
ないものですが、やがてそれに目覚める時が来るのです。その時こそ、マシン 
語が新たなるパズルゲームに発展する日なのです。あなたにも、ついにその日 
がやって来ましたか。 

質問の回答をする前に、なぜ 「CP 0」より 「OR A 」 がいいのか考えてみ 
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ましょう。答は簡単です 。 rep 〇」では、命令にメモリを2バイト使用し、実 
行に要する時間は7ステートかかりますが 、 「OR A 」 ならばメモリは1バイ 
卜、実行時間は4ステートで済むからです。ただし、すべてのフラグが同じ変 
化をするわけではありませんから、ソックリ同じとはいえませんが……。その 
ことを知った上でなら、実用上は同じと見なしても差し支えないでしょう。 

早い=タイムステ ー ト数が少ない 

安い=使用メモリ数が少ない 

これが、うまいプログラムというわけです。では、質問への回答です。結論 
からいうと、 A レジスタが空いているという条件付きでなら、これは正解です。 
しかし、 A レジスタの値を壊したくないとなると、話は違ってきます。 

その場合、この方法では A レジスタの値を、いったん別のレジスタに退避し 
なければなりません。空いているレジスタがあればいいのですが、いつもそう 
まくいくとは限りません 。 「PUSH AF / POP AF 」 では、フラグも元の状態 
にもどってしまうのでダメです。 

そこで、こういう場合には次のようにします。 


r 

DEC 

B 

1 

INC 

B 

INC 

1■— 

B 

または 

DEC 

B , 


どちらも命令に要するバイト数、実行ステート数は同じです。足して引いて 
も、引いて足しても、変化するのはフラグだけですから、 A レジスタの内容は 
壊れないわけです。まさに、パズルではないですか……。 

なお、1つの命令に対するバイト数と、ステート数は三の章の Z 80 ニモニック 
表を見ればわかります。ステートというのは、その命令に必要な時間の単位で 
すが、実際の時間はそのマシンの基本周波数 （ 4 MHz とか8 MHz ) によって変 
わります。 


II 







Ram の特徴を活かす 


ドス コ〜 ィ!！ 

朝もハヨからドスコ〜イ。ワシは大横網千代の富土。 

……を目指して、新弟子検査を受けようとしている自称超横網万 
代の萬士（まよのふじ）っす。身長183センチを目標に、168センチの 
身体にムチ打って連日ドカ弁を食べているっす。おかげで体重だけ 
は 115 Kg もあるっす。ア、いま中三っす。 

寝てもさめても相撗だったのに、なんの間違いか誕生祝いにパソコンがほしいと言ってし 


その4 


まったっす。もちろん冗談100パーセントのつもりだったす。これまでほしいものを一回で 
買ってもろたことなんてなかったすから。ところがなんと、誕生日の日学校から帰ると、机の 
上には本物のパソコンが……。 


てなわけで、最近では BASIC を通り越してマシン語に夢中っす。ところで、メモリには 
ROM と RAM があるっすが、 ROM だけじ ゃ プログラムは無理ってことは理解してまっす。 
ワークエリアがなけり ゃ プログラムは組めないっすもんね。 

でも、この前 RAM の特徴を利用したブログラム J があるってことをどこかで耳にしまし 
たっす。これはいったい、なんのこつすか？ 


どすこいドカ弁（香川) 


■答 

いよいよマシン語も体力勝負の時代に突入したようですね。ドスコ〜イのか 
け声と共にマシン語が土俵の外へ突き飛ばされそうです。 

さて、ブログラムであれば BASIC であれマシン語であれ KAM は絶対に必 
要ですが、これは基本的には変数保持のためにワークエリアが必要だからです。 
例えば、カーソルやキャラクタの表示位置を示すワークエリアとして、よく 
rxposj [ ypos 」 というラベル名を使用しますが、この中身をブログラム中に 

BC レジスタにロード （ C レジスタに X 座標、 B レジスタに Y 座標）すると仮定 
してみましょう。 

これを通常のプログラムー①と RAM を利用したブログラムー②とに分け 
て組んでみたのが次の2つです。どこがどう違うか、それぞれの特徴を見極め 
るつもりでプログラムを見てください。なお、プログラムの右側にある数字は、 
その命令に必要なバイト数を表しています。 
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① 


XPOS : 

YP 0 S : 

DB 

DB 

# 

• 

0 

0 

② 

1 

1 

XP 0 S : 

YPOS : 

EQU 

EQU 

• 

• 

WP 0 S + 1 

WP 0 S + 2 


LD 

• 

• 

• 

• 

BC ,( XP 0 S ) 

4 

WP 0 S ： 

LD * 

• 

# 

• 

• 

BC ,0 


どちらのプログラムも、これ以外の場所で rxpos 」「 ypos 」 の中身を操作 
する命令に関してはまったく同じ条件です。ということは、 RAM を利用したプ 
ログラムー②では通常の ブロ グラムー①より命令に要するメモリ数が3バイト 
少なくて済むということがわかります。 

さらに、 BC レジスタにデータを口ードする命令も、① （20 ステート）に対し 
②は10ステートと半分になっています。したがって、この3行分だけに関して 
いえば、メモリ数もタイムステート数も②は①の半分になっているわけです。 
こうなると、どちらが得かはもう明白です。いかにも、①のブログラムは素人っ 
ぼく見えてきますね。 

ただし、このようなプログラムが通用するのはブログラム自体が RAM に置 
かれるということが絶対条件ですから、将来 ROM 化するような場合はキチン 
とワークエリアを分離した①の害式にしなければなりません。あくまでも 
「 KAM の特徴を利用した」ということを忘れてはならないのです。 

しかし、本番のプログラムにおいては、原則的に ROM 化することまでは考 
えていませんから、この先さらに RAM の特徴を利用したブログラムが現れて 
きます。その際、特に RAM 専用という断わりを入れませんので、もし ROM 化 
予定のプログラムに本書のテクニックを応用したい場合は、それなりに RAM 
エリアを活用するよう、各自で考虛してください。 

そもそも、タダで便利なものにはどこかに条件があるというのは世の常なの 
です0香川のどすこいドカ弁君にパソコンがプレゼントされたのも、きっとそ 
の奥には別の願いがあつたんではないっすか。身長/体重.のバランスからして 








聞いてください。わたしの悩み。マシン語の便利な用法がたくさん 
でている本を買つたんです。その本には「足して引けば、フラグが変 
わる（問その3参照）」つて書いてありました。早速、わたしは役立て 
ようと思いました。 HL レジスタに、ある点数を入れてあるのです 
が、それがゼロの時には、別のルーチンへジャンプさせようとしたん 


です 0 


INC HL 
DEC HL 
JP Z,STUDY 


これが、その時のプログラムです。でも、 HL レジスタの値がゼロになっても、いつも素通 
りしてしまい 、 「STUDY J にジャンプしてくれないんです。あの本にはバグでもあるんでしょ 
うか。 

悩める美人の 0 L (福岡） 

■答 

本書を買ってくれた M 初の読者からの質問ですね？？？それも、美人の〇 
L とはウレシイじゃありませんか。 

マシン語というのは、蒸気機関車みたいな人間臭さがあるせいか、あまり女 
性には好かれませんでした。でも、女性がマシン語を操るというだけで、パソ 
コンの イメージが‘ ネ クラ， から‘ネア カ， に変わりそう です。 

さて、このプログラムは一見すると正しいようですが、実はそこに大きな落 
し穴が潜んでいます。それは、フラグというものに対する過信です。フラグレ 
ジスタというレジスタは、思ったより好き嫌いの激しい性格をしています。 

ですから、たとえ命令の内容が似ているからといって、フラグレジスタの変 
化まで同じと思ってはいけません。今回の場合も、 「 INCHL」「DEC HL 」 と 
いう命令ではフラグはまったく変化してくれないのです。 

ということは、ここでやった 「 INCHL 」「 DECHL 」 という作業は、単なる 
無駄命令に過ぎなかったわけです。素通りするということは、おそらくこのプ 
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ログラムの前で、ゼロフラグが立たないような命令を実行していたからでしょ 
では、どうしたらいいかというと、 A レジスタを気楽に拝借すればいいので 

to 


\LD 

A,H 

OR 

し 

JP 

Z,STUDY 

J 


これは、結果的には H レジスタと L レジスタの OR を取って、ゼロフラグが 
立つかどうかを確認してジャンプするようにしているわけです。もし A レジス 
夕の値を変化させたくなければ、いったん空いているレジスタに退避しておけ 
ばいいですね。かりに D レジスタが空いているとしましょう。 


LD 

D,A 

LD 

A,H 

OR 

し i 

LD 

A,D 

JP 

Z,STUDY 


簡単なものです、ハイ。では、空いているレジスタがまったくない場合はど 
うでしようか。その時は、必殺の書き換えブログラムです。 


LD ( M 0 D 0 S + 1 ),A 
LD A,H 
OR L 

MODOS : LD A ,0 

JP Z,STUDY 


「（ M 0 D 0 S + 1)」 とは 「LD A ,0」 の ‘0’ の部分に当たります。こうしてお 
けば、レジスタの内容をひとつも壊さずにフラグの変化だけを得られます。 

マシン語も女性に好かれるようになると、もっともっと夢のある世界が大き 
く広がるんですが……。まずは‘悩める美人の OL ’ さんの悩みを解消したこと 
で、少しは未来が明るくなった気がしませんか。 
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AsL 

sS 


联命令とは 


青春とは爆発だァ!！ 

オレは高3。あり余るエネルギーを、走ることで燃焼させている。 
別に陸上部に所属しているわけじゃないから、距離はたったの3 km 
さ。だけど、ほとんど毎日のように走っている。正直いって走ってい 
る 時は メチャ 苦しい。顔は苦痛に ゆがみ 心臓は オーバー ヒート寸前 
……。ここで歩けばどんなに楽かと、いつもそれだけを考えて走っている。 

でも、それを我慢して走り終わると、これがまた何とも言えない社快感。誰もホメてくれな 
くても、オレはその瞬間が大好きなんだ。無駄なことをしている、なんて言うヤツもいるけど 


ネ。無駄なことができるってのは、ゆとりがある証拠さ……。 

ところで、コンピュータにも無駄命令ってのがあるって話だけど、こればかりは自分のこと 
じゃないからよくわからない。ニモニック表を見たら 「 NOPJ という命令があったけど、こ 
れが無駄命令のことなんだろうか。 

人間無駄蒸気（秋田） 



いいなァ、無駄なことができるなんて!！ 

……と言いつつ、私もまだ現役で走っています。でも、それはエネルギーが 
余っているからではなく健康のためです。もちろんエネルギーは消耗しますが、 
これは回復力という別のエネルギーを呼び出してくれますからね。決してエネ 
ルギーの無駄な消跦ではないわけです。 

つまり、一見して無駄に見えることが実は無駄なんかではなく、身体にとっ 
て Ifi : 要な役割を果しているということです。コンピュータにおける無駄命令も、 
本当に無駄なら誰も使わないはずです。と考えると、無駄命令という言葉が存 
在すること自体、そこには無駄ではない何かがあるはずです。 

そこで、まずは質問にあった 「 NOP 」 という何の役にも立ちそうもない命令 
を見てみましょう。確かに、この命令はフラグ変化も伴わないし、実行結果を 
見ても何も残してくれません。でも、これは決して不要な命令なんかではない 
のです。その証拠に、次のような役に立つことを実行してくれています。 

(1) メモリを1バイト確保する。 

(2) 4ステートという時間を消費する。 

メモリを1バイト確保してくれるということは、必要に応じてそのメモリを 
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利用できるということです0例えば、衝突をチェックするサブルーチンがある 
とすると、その先頭に 「RET ( = C 9„) J を入れれば、簡単に不死身モードがで 
きてしまいます。 

衝突のチェックあり —衝突チェックスキップ（不死身モード） 

I - 1 I I 

CHECK : NOP I |CH RET : 

: : 

RET RET I 


また、4ステートという時間の消费は、外部機器や特殊デバイスとのャリト 
リをする場合に、タイミングを取るための最小ウヱイトとして活用されます。 

どうですか。これら2つの役割だけでも 「 NOP 」 が役に立つ命令であること 
がわかりますね。もちろん、 「 NOP 」 ではなく 「LD A , A 」 とか 「LD B ， B 」 
などといった命令でも代用できますが、 「 NOP 」 のいいところはアセンブルさ 
れた時に00„と数値的にわかりやすい点にあります。 

さて、無駄命令といわれているものには、このほかにもタイマーとしてのウェ 
イ ト ルーチンがあります0例えば、カーソルなどはウェイ トを 入れなければ早 
すぎて思い通りに動かせませんし、ゲームでもスピードの調節が不可欠です。 
このような場合、正確には割込みによって キ チンとしたウヱイ トを 取らなけれ 
ばなりませんが、簡単なルーチンの場合は次のようにループによつてウェイト 
調整をすることもあります。 

このようなブログラムを一般に無駄命 
令と称しているわけですが、本当に無駄 
なのはダラダラと不要に長い下手なブロ 
グラムというべきです。必要があるから 
使われているウェイトルーチンは、かわ 
いそうにも俗称だけが無駄命令というわ 

けです。 

もっとも、人間の反応がコンピュータ並みに早ければ、大半の俗称無駄命令 
も省けることになりますが……。そうなると、コンピュータそのものが無駄な 
存在になってしまいます。 


C の値によって長さを調節する 


WAIT : 

LD 

- 1 

BC ,30 

WAIT 1 : 

DJNZ 

WAIT 1 


DEC 

C 


JR 

NZ . WAIT 1 

__ 

RET 
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a . V ♦ ，，冬- 、 W, V A V * •♦<r .：：• — へ ' •ハ ..、.，•.. 、..."め々.,.、.， 

Add hl, Aj 

私は、定年退職してからパソコンを始めた者です。息子のパソコン 
をいじっているうちに、ついマシン語なるものに興味をもちました。 
ところが、年のせいか、どうも融通がききません。いつも、レジスタ 
が足りなくて 「PUSH / POPJ ばかりを使ってしまいます。もちろ 
んワークエリアの存在は知っています。しかし、これはワークエリア 
を使っても解決するような問題ではないと思うのです。 

いま、 HL レジスタに80を足したいのですが、あいにく DE レジスタも BC レジスタも使用中 
です。なんとか 、 「PUSH / POP 」 地獄から抜けたいのですが……。 



PUSH DE 
LD DE ,80 

ADD HL,DE 
POP DE 


やつばり、これしかナイものでしようか。私にはこれ以上の案はでませんが、老人でもプロ 
グラムの格好は気になるものです。 


ボケない老人（栃木) 



バソコンに 年齢なんか関係ありません、という見本のような例です。 コン 
ピ ユー タといえば、ついこの間までは大型の電子計算機を意味していたのです 
から、若い人も年とった人もスタートは一緒です。 

そんなことより、新しいことにチャレンジできるなんて、まさに青春まっ盛 
りではないですか。おまけに 、 「PUSH / POP 」 地獄から脱却したいとは、な 
んて素晴らしいことなのでしょう。ブログラムの格好を気にするなんていうの 
は、プロのプログラマーでもなかなか言えないセリ フ です。 

ところで、このようなケースには実際によく出会います。特に、データの転 
送などでは HL / DE レジスタで データの アドレスを指定し、 BC レジスタを力 
ウンタに使うことが多いですから、もしも HL / DE 両レジスタとも途中で+ 
80するなどという場合は 、 「PUSH / POP 」 を使っていては確かに大変です。 
もちろん、ワークエリアを使って退避することもできますが、それでは余りに 
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も大袈裟です。そこで、空いている A レジスタを利用してみましよう0 


LD 

A,L ； 

ADD 

A ,80 | 

JR 

NC , N 0 INC 

INC 

H 

N 0 INC : LD 

L,A 

」 


質問にあった 「PUSH / POP 」 を使用した方法では、使用メモリ数=6バイ 
卜、ステート数= 42となります。一方、こちらの方法では、使用メモリ数=7 
バイト、ステート数= 27 (INC H を通る時は 26) です。 

これだけでは、総合して少し優位という程度ですが、この方法によるメリッ 
卜はレジスタを選ばないという点にあります0というのは、ペアレジスタ同士 
の計算命令では、常に HL レジスタを介在させなければなりませんから、 HL レ 
ジスタの値を保存したまま DE レジスタを+80する時など面倒です0そんな時 
には、圧倒的にこちらの方法が便利になるわけです。 

では、栃木のおじいちゃん、格好のいいマシン語ブログラムを目指して、ま 
すます頑張ってください。 
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r AoD HL ,1234 Hj を実現 


与論島をご存じですか。そう、若者の島、ヨロン島です。沖縄が日 

本に返還されるまでは、日本最南端の島といわれていました。 

わたしの家は民宿をしています。ヨロンにはヨロン憲法（献奉）と 

いう歓迎の挨拶があつて、島に来た人はまず焼酎をなみなみと飲ま 

されるんですよ。わたしの役目は飲むふりをして飲ませることです。 
だって、次の日は学校だもん。 


一一の海岸にはコンベイ糖みたいな形をした星の砂がたくさんあります。有名だから知っ 
てますよね。わたしは、いま「星の砂 J というタイトルのゲームをパソコンで作っています 
一応マシン語を使っているのですが、困ったことに H L レジスタに加算する命令はあっても、 
BC レジスタに加算する命令はありません。 


1- 

PUSH 

H し i 

LD 

HL ,1234 H 

ADD 

HL,BC 

LD 

B,H 

LD 

C,L 

POP 

H し 


BC レジスタに1234,,を足す方法は、これが最善の方法ですか。実は、ある本で1バイトの 

数値をベアレジスタに加算する方法は発見したのですが……。同じような方法がありそうな 
気がします。気のせいでしょうか。 

星降る乙女（与論島） 

I 答 

ヨロン島の星降る乙女ちゃんの作品で「星の砂」……。もう目の前に メルへ 
ンの世界が広がってきそうです。ヨ ロンに は潮が引く と 沖合いに島のように現 
れる百合が浜なんていうのもあるし、夢がいっぱいですね 

でも、お酒を飲めない人にとっては、ヨロン憲法は余りにもキビシイ憲法で 

す。その割には、毎日の宴会は楽しかったけど . 。だから、質問にピッタリ 

の答を教えてしまいましょう。 

おそらく、ペアレジスタに1バイトの数値を加算する方法というのは、問（そ 
の 7) にある答だと思います。そこで、あのプログラムをもう少し ヒネ っァ 
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HL レジスタを介さずにペアレジスタへ直接数値の加算（ここでは BC レジス 
夕に 1234 H を加算）が行えるようにしてみます。 


LD 

A,C 

ADD 

A,34H 

LD 

C,A 

LD 

A,B 

ADC 

A,12H 

LD 

B,A 


— ADC としている点に注意してください 


たったこれだけですが、ペアレジスタに直接2バイトの数値が加算できると 
いうことになると、用途はかなり広くありそうです。必要に応じて1バイトの 
数値加算法と使い分けると、速度的な無駄もなくなります。 

また、加算するのが数値でなくレジスタであっても同様の氆式（数値を加算 
している部分をレジスタに餺き換える）が可能ですから、 「 AI ) I ) BC , HL 」 と 
か 「 ADI ) DE , BC 」 なんていうのも、いとも簡単に作り出せるわけです。大い 
に活用してしまいましょう。 

ところで、星の砂ってどうしてあんなにきれいな星の形をしているんでしょ 
うか。一説によると、ヨロンのあの満天に散りばめた星の群れから、時々はみ 
出して落ちてきたという話ですが、本当のことを知っていたら教えてください。 
星降る乙女さま……。 
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「 Sub hl, dej を実現 

コンニチワ。こちらは冬が長い北の国です。寒い日は、家の中でパ 
ソコンをするのが最高です。特に、マシン語をプログラムしていると 
時のたつのを忘れます。今はまだ入門者ですが、そのうちアツと驚く 
プログラムを組んでみせます。 

ところで、いつも不便に思うことがあります 0 それは、ペアレジス 


夕の減算命令についてです。足し算には 「 ADDHL , ssJ と 「 ADCHL , ssJ という2つの命令 
があるのに、減算には 「 SBCHL , ssJ という命令しかありません。 


だいたい、キャリーフラグ込みの滅算なんて使ったことがありません。だから、毎回キャ 
リーフラグをリセットしていますが、どう考えてもこれは不親切な命令だと思いませんか？ 
ちなみに、キャリーフラグのリセットには 「OR AJ とやっています。でも、気分によって 
は 「AND A 」 を使ったりします。 

夜ふかしヒグマ（北海道） 


■答 

雪がしんしんと降る中をプログラムか……。うらやましい環境だなァ。きっ 
と、プログラムに疲れたら、近くの山にスキーにでも行くんでしょうね。いい 
プログラムはいい環境のもとで生まれるとよくいいます。 タバコの 煙と、 ほこ 
りにまみれた部屋からは、それなり の ブログラムしかできないという気がしま 

to 


きっと、近いうちに日本を揺るがすようなブログラムができることでしょう。 
なんといつても、本人がその気になっているのが強みです。 

それにしても、本当に 「SUB HL , ss 」 という命令があってもよさそうです。 
あれば便利なことも間違いありません。でも 、 「SUB HL ， ss 」 と 「SBC IIL , 
ss 」 どちらか1つだけを選べと言われれば、私ならやはり 「SBC HL , ss 」 を選 
びます。 


それは、キャリーフラグをリセットして減算するのは簡単ですが、キャリー 
フラグ込みの減算を 「SUB HL , ss 」 で実現するとなると 、 「OR A 」 みたい 
に1命令では済まないからです。質問では、キャリーフラグ込みの減算をした 
ことがないとのことですが、きっと近い将来キャリーフラグ込みの減算が必要 
になってくるはずです。 


22 







とはいえ、現時点ではキヤリーフラグを毎回リセットしているわけですから、 
面倒であることも事実です。なんとか工夫してみましょう。 

例えば、 HL レジスタから5000„を減算するとします。まず、まともにプロ 
グラムを組んでみます。おそらく、夜ふかしヒグマクンもこのように組むはず 
です。 


「LD 

DE, 500 OH 

OR 

A 

1 SBC 

HL,DE 


キャリーフラグをリセットするのに 、 「OR A 」 を知っているなんてスゴイ 
ですね。キャリーフラグにはセットする命令 ( SCF ) と反転する命令 （ CCF ) 
はあっても、リセットする命令はありません。そのため 、 「OR A 」 とか 「 ANI ) 
A 」 という命令でキャリーフラグをリセットするのが一般的です。しかし、わ 
ずか1バイトの最短命令とはいえ、毎回となるとイヤになってきます。そこで、 
コロンブスの卵です。 


[ 

LD 

DE, — 500 OH 

ADD 

1 

HL,DE 


これで、 HL レジスタの値は先ほどと同じ結果になります。減算に要するメモ 
リ数/ステート数も、3バイト （19 ステート）から1バイト （11 ステート）へ 
と減少しました。アイデアの勝利です。 

……が、計算の結果、ゼロフラグを見て何かをさせようという場合はこのま 
まではいけません。というのは 、 「ADD HL , ss 」 という命令ではゼロフラグが 
変化してくれないからです。 

そこのところを理解した上で 、 rSBC IIL , ss 」 にするかこちらの方法にする 
か、うまく使い分けることが大切です。問（その 5) にもあったように、ペア 
レジスタの加減算命令でフラグ判定をする場合は、そのあたりを頭に入れてお 
かないと迷宮入りとなる可能性があります。こわいですね……。 
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Jr と jp の違い 

私は鉄道マニアです。国鉄（アツ……いまは」 R でしたネ）の全路 
線を踏破するのが目標ですが、お金と時間のかかることなので いつ 
達成できるか、自分にもさっぱりわかりません。 

そこで、パソコンを使って一足お先に画面上で全国踏破しようと 
思うのですが、今度はプログラムで頭を使いデータ入力で時間を使 


い、やつばりいつ達成できるのかわかりません。それでも、こちらのほうはお金がかからない 


だけ助かってはいますけど 


実は、最初はブログラムを BASIC で組んでいたのですが、あまりに遅いためマシン語でや 
ろうと決心したのです。ただ、マシン語でまともなブログラムを組むのはこれが初めてなの 
で、マシン語といつても幼稚なものです。そこで、恥ずかしいのですが未熟者からの質問と 
思って教えてください。よく雑誌などで…… 


JR 命令よりも JP 命令のほうがメモリは1バイト多く使用するが、実行に要するステー 
卜数が少ないので、 JP 命令を使用して高速化を図っています。 | 

……と' 害いてある投稿記車があります。確かにニモニック表では JR 命令は12ステートで、 
JP 命令は10ステートです。でも、実際にやってみると' 効果はナイも同然です。これは一体 
どういうことでしょう。 

ちなみに、現在のプログラムは乗車ルート決めるという段階で、一応思考ルーチンとなって 
います。だから、本当に高速化されているならば、思考時間の短縮となって表れるはずなんで 

すが……。 

J P 不信の」 R マニア（神奈川） 

■答 

この答は簡単ですね。 JP 命令だって人の子、いやマシンの子です 。 J R マニ 
アのあなたが J R を嫌いになればいいのです。そうすれば、 JP 命令はよろこん 
で超高速に命令を実行するように……というのはゥソです。 

いきなりウソをついたのは、この質問が決して幼稚ではないからです。それ 
は、 JR 命令ょり JP 命令が絶対に早いと単純に思っている JP 命令高速信奉者 
が圧倒的に多いという事実からもわかります。確かに、そのこと自体は間違っ 
てはいません。絶対ジャンプ命令においては、 JP 命令のほうが2ステート早い 
ことは事実なのですから。 

そこで、まずはこのステートというのは具体的にどの程度の時間をいうのか 
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計算してみましょう。ただし、割込みや I ) MA などによるウヱイトは考慮に入 
れません。また、基本周波数は4 MHz としています。 

1 ステー ト=1 十 4 十 1000+1000秒 

= 0.00000025 秒 

これが1ステートの実際の長さです0つまり、 JK 命令を JP 命令に遛き換え 
ると、それだけで （).0000005 秒高速になるというわけです。 

……が、それを確認できるほど人間の頭脳は高速でしょうか。さらに、この 
方法だけで1秒短縮しようとすれば、 JP 命令を200万回実行しなければなりま 
せん。つまり、よほどのブログラムでない限り目に見える変化はないというこ 
とです。 

しかし、だから JP 命令による萵速化が不要ということではありません。例え 
ば、ループの中とか何度も使用するサブルーチンなどでは、高速化への1 つの 
手段として実行する価値は大いにあります。特に、リアルタイム•ゲームでは 
1ループ（全キャラクタの1コマ移動）の時間が短いので、こういった小さな 
高速化を集めることはブログラミングの基本となっています。 

また、場合によってはループにしていたものを、その数だけ同じ命令を連記 
してカウントに要する時間を短縮するとか、サブルーチン化をやめて CALL / 
HKT に要する時間を省くというテクニックも有効でしょう。 

しかし、本当に重要なのは命令そのものをいじることより、アルゴリズムに 
対する工夫です 0 特に思考ルーチンでは、アルゴリズムを変えることにより思 
考時間が半分になったりすることもあります。もっと祝野を広げて、ブログラ 
ム全体を見つめることが大切なのです。 

ということで、最後に JR 命令にも花を持たせましょう。それは、同じジャン 
プでも条件分岐命令による場合です。2 つの ブログラムを見比べてください。 



JP 命令高速信奉者は、ためらわずに⑵のようにしますが、条件分岐というの 
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は当然のことながら分岐しない場合があるわけです。その際、 JR 命令なら7ス 
テートで通過してくれますが、 JP 命令では分岐するしないにかかわらず10ス 
テートを消費してしまいます。 

したがって、このようなケースでは分岐する割合が多ければ（2)、少なければ 

(1) というように、その内容によってプログラムを使い分けることが、真の高速 

化ルーチン信奉者の条件というわけです。 

JR 命令は単に使用メモリ数が少ないというだけでなく、リロケータブルなプ 

ログラムに使用できるという特技もあるのです。決して JP 命令より格が下だ 

なんて思わないでください。新幹線だって J R で動いているんですから 
. ? ? ? 
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その 11 


オス。おいどんは、薩摩隼人でごわす。時代の波に乗り遅れぬよう、 
おいどんもパソコンを買ったでごわす。 BASIC は、 ハッ キリいって遅 
くてイライラする。やはり、時代はマシン語でごわすな。 

おいどんは、未来を的確に見つめるため、いまあるプログラムを 
作っておるのだが、ある事情で コールす るたびに十 50 と 一 50 とい 


う値を交互に返してくれるようなサブルーチンが必要なのでごわす。現在は次のようにして 
おるが、どうもこのプログラムは スッ キリしないのでごわす……。 


| DAT 50 : 

LD 

A,50 


CP 

50 


JR 

Z,DAT51 


LD 

A,50 


JR 

DAT52 

DAT51 : 

LD 

A,-50 

DAT 52 : 

LD 

(DAT50 + 1),A 

1_ 

RET 



ぜひ、的確な評価をしてほしいでごわす。お願いでごわす。 

マシン西郷（鹿児岛) 


■答 

これはこれは、時代を超越したような質問でごわすな。こちらまで影•料を受 
けてしまいそうでごわす。 

この プログラムは、確かに見るからに スッ キリしませんね。ブログラムを 書 
き換えながら使うなど、苦労の跡はうかがえるのですが、苦労がむくわれてな 
いようです。でも、ブログラムが スッ キリしないと感じている点に、 マシン 語 
の 夜明けを感じます。 

マシン語プログラムで、スッキリしないとか不格好だと感じた時は、命令の 
一覧表（巻末のインストラクション表）を見直すと、いい知恵が浮かぶことが 
あります。それは、マシン語を覚えたてのころは、使い慣れた ニモニック 以外 
使わない（使えない）という傾向が強いからです。 

この西郷クンも、便利な命令をまだ見落としているのです。こんな時には、 







\ NK(j J という域適の命令があるんですよ。 


DAT50 : LD 

A, 50 

NEG 


LD 

(DAT50 + 1),A 

RET 

_1 


[ NEG 」 とは 、 NEGATE (否定する、正負を反転するという意味）の略で 
すが、この命令を使えば一発で正なら負へ、負なら正へと変換してくれるので 
す。もちろん、ここでの正とか負というのは、問（その 1) にあったように、 
あくまでもプログラムを組む人の感覚であることを忘れないでください。一応 
サインフラグ上では、ビット7の値で+ /—を判断するようになっていますが 


時計を読むのに、何時何分過ぎと読むか、何分前と読むか、それは読む人の 
手というようなものです。では、同じような感覚で0と何かを交互に返すルー 
チン、と問題を変えたらどうでしょうか0例えば、0と50を交互に返してくれ 
るようなルーチンがほしい場合です。もちろん、質問にあるようなプログラム 
にもどってしまうようでは、維新の夜明けは遠くなるばかりです。 


I- 

DAT50 : 

LD 

A,0 


XOR 

50 


LD 

(DAT50+1),A 


RET 



今度は論理演算 XOR です。 XOR は二度繰り返すと値が元にもどるという特 
徴を利用するわけです。では、初期値を0ではなく別の値にしたらどう変化す 
るか、 XOR に対する理解を深めるためにも自分で確認してみてください。 

よくわからないという人は、キチンと二進数にして演算すればいいでしょう。 
ナニ、そんな簡単なこと知っていたでごわすか!！こりや、失礼したでごわす。 
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Ld 命令を減らす 


わては大阪の生まれだす。手紙も電話も大阪弁以外ではしません 
のや。もちろん、英語だって大阪なまりだす。それが、浪花のド根性 
と思うとんのや。 

そ、そのわてが、なんとマシン語に凝ってしもたのや……。くやし 
いけど、わてのパソコンかて大阪弁は理解してくれへん。これはホン 
マに残念なことやで。マ、それはいいとして、わてのマシン語というと、ロード （ LD ) 命令の 
連続なんや。 

やっと、ワークエリアが自由に使えるようになったんやが、その中身を操作するたびにロー 
ド、ロードや。例えば、こんな具合いや。 


LD A ,( OKANE ) 
SUB 2 

LD ( OKANE),A 
LD A ,( YAKSO ) 
INC A 

LD ( YAKSO).A 


「 OKANE 」 とか 「 YAKSOJ というのがワークエリアなんやけど、アドレスでいうたらお隣 
リどうしやで。もっと、わての大阪弁みたいに流ちょうにいかんのやろか。ア、プログラムの 
内容はお金を使って薬草を買うた、という意味や……。 

浪花ぼてじゃこ物語（大阪） 

|答 

英語いうたかて世界中どこでも通用するわけではあらへん。わてもイタリア 
を放浪しよった時は、大阪弁使いよったで……デタラメの……。 

外国人というと、みな英語を話すと思ってしまうのが島国日本人の悲しさ。 
苦労して下手な英語を使っても、通じない国はたくさんあります。どうせ通じ 
ないのなら、日本語でも同じこと。真剣に話すと、結構相手もわかってくれる 
ようです。 

その日本語でも流ちょうに話すのは難しいのに、マシン語を流ちょうに使い 
たいとは驚きです。凡人には、なかなか言えないことです。 

では、さっそく流ちょうでないプログラムを見てみましょう。流ちょうに見 
えない原因は、アドレスをすべてダイレクトに指定しているからです。忘れな 
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いでください、ペアレジスタというアドレスを示せるレジスタがあることを。 

かりに、 「 OKANE 」 と 「 YAKSO 」 というアドレスが、番地の若い順に並ん 
でいるとしましょう0 —方のアドレスを指定すれば、隣りのアドレスは簡単に 
わかります。流ちょうな日本語ができなくたって、隣りの家をいちいち住所で 
言う人はいませんね。どこか一軒を指定すれば、あとは一軒先とか手前という 
ように相対的に表現するのが普通です。 


LD 

HL,OKANE 

DEC 

( HL ) 

DEC 

( HL ) 

INC 

HL 

INC 

( HL ) 


これで、ブログラムに要するメモリ数は半分以下になりました。ステート数 
も2割ほど減少しています。気になったロー ド命令も1つになりました。…… 
が、ロード命令の多少とプログラムの良否については、まったく関係ありません。 

そのことより、メモリ中のデータを操作する場合、できるだけアドレスをレ 
ジスタで指定するように心がけることが大切でしょう。ほとんどの場合、それ 
だけでメモリ数/ステート数の減少につながります。 

ただし 、 [DEC ( HL )」 や 「INC ( HL )」 という命令は、メモリは1バイト 
しか使いませんが、時間は11ステートもかかります。加算する数が3以上の場 
合は 、 「LD A ，（ HL )」 として A レジスタで計算してからメモリにストアしたほ 
うが得策です。 

また、関連するワークエリアのアドレスが前後に散らばっていたりする場合 
は、インデックスレジスタ （ IX / IY ) を使用するとプログラムはスッキリしま 
す。しかし、インデックスレジスタに関する命令は、メモリ数/ステート数と 
もに大 M 消费の王様ですから、高速化追求のブログラムでは使用する価値があ 
るかどうか、よく考えてから使うことがポイントです。 

もっともマシン語ブログラムは超高速で実行されますし、最終的にウヱイト 
をかけて時間調整をすることも少なくありません。したがって、そのあたりを 
考慮して命令を使い分けることが大切なのです。 

どないだ。これで、マシン語も大阪弁に一歩近づいたでっしゃろ!！ 


3〇 







ット転送 


ニツボンのみなさ〜ん。お元気ですか……。 

ワタシはおじいさんとおばあさんが日本人の日系三世です。英語 
名はドナルド、日本名は拓です。だから、ドナルド•タクというわけ 
です。もちろん、通称はドナルド•ダツクです。 

でも、初めて日本へ行った時 4 ドナルド’って呼ばれても誰のことか 


サツパリわかりませんでした。それに、日本語でいう r マクドナルド j というお店、これも行っ 
てみるまで何のお店かわかりませんでした。ヤツパリ、ワタシはアメリカ人です。 

ところが、うれしいことに日本人もマシン語を使うというじゃありませんか。それならとい 
うわけで、ワタシもマシン語を始めました。だから、まだ入門者です。そこで、ちょっと教え 
てください。 


A レジスタのビット5だけを、あるメモリにそのまま移したいのです。ビット5以外は変更 
したくありません。いまは次のようにしています。 


V 

し D 

HL,MEMRY 


BIT 

5 ,A 


JR 

Z , RSET 5 


SET 

5,( HL ) 


JR 

XSET 5 

RSET 5 : 

RES 

5,( HL ) 

XSET 5 : 


: 

• 


ヤツパリ、こんなもんでしょうか。 


Donald Tack (ロサンゼルス) 


■答 

実は、私も憧れのディズニーランド（東京ではなく ロスのほうです）へ行く 
前日、現地の人に明日はドナルドダックに会いたいと言ったのですが、いくら 
「ドナルド」「ドナルード」「ドーナルド」と言ってもわかってもらえなかったこ 


とがあります。 


あれを r ダーナーダック j って発音するなんて……。 r マクダーナー j という 
お店も日本にはないですからね。カタカナの英語がこんなにデタラメだとは、 
その時まで知りませんでした。ちなみに、私が話した現地の人というのは、一 
応日本語も話せる日系三世の人だったんですが……。 

こうなると、マシン語を国際語にするしか方法はなさそうです。質問にも快 
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く答えてしまいましょう。 • 

まず、質問にあるブログラムは、少し手直すだけで無駄なジャンプ命令が省 
けてスッキリさせることができます。 


LD 

■ ■ | 

HL.MEMRY 

RES 

5,( HL ) 

BIT 

5 ,A 

JR 

Z . RSET 5 

SET 

5,( HL ) 

參 

RSET 5 : 

• 

• 


これだけで十分と言えないこともありませんが、この程度のことでジャンプ 
命令を使うのはカツコ悪いと感じる人もいるでしょう。そこで、 A レジスタの 
値はこわれてもいいという条件で、次のようにプログラムを組むのも一考です。 


LD 

HL,MEMRY 

RES 

5,( HL ) 

AND 

001000 00 B 

OR 

( HL ) 

LD 

• 

• 

• 

• 

( HL),A 


「なんだ、これなら前のほうが早いぞ!!」なんて思いませんでしたか。確かに、 
この例に関してはそう言われても仕方ありません。では、もしもビット5とビッ 
卜3の値を移したいとなったらどうでしょうか。 

敁初のやり方では、プログラムが単純に倍になってしまいます。それに対し 
て、二番目の方法なら RES 命令を1行追加するだけで済みます。もちろん 、 AND 
命令のオペランドも直しますが、これはメモリ数や速度に影辨を与えるもので 
はありません。 

つまり、両方を知っていればプログラムに合わせて効率のいい方法を選べる 
ということなのです。やはり、何事においても基本は大切ですね。 

英語の基本は ABC ……、決してカタカナではなかったのです。 
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"9* ブルーチンへのジャンプ 

ポクの友人にパソコンを小学生の時から持っている上、すでにマ 
シン語までマスターしてしまった者がいます。ポクは、1年前やっと 
高校入学と同時に買ってもらいました。そして、なんとか BASIC は 
彼と同レベルになりましたが、マシン語ではまだまだその友人にか 
ないません。そこで彼に内緒で質問します。 


CALL xxxx 
RET 

マシン語プログラムには、こういうケースがよくでてきます。ポクも最初はこのままでした 
が、ある時コールしてからリターンするなら 、 「JP XXXXJ とすればいいのではと思ったので 
す。どうせ、コール先の RET 命令で元のルーチンへ戻れるからです。 

以来、このような場合には 「JP xxxxJ としてきましたが、それで問題が起きたことは一度 
もありません。でも、ポクの友人にその話をしたら、いずれダメな時も出てくると言います。 
理由を聞いても ハッ キリ教えてくれません。 

いったい、どういう時にダメなんでしょうか。ソッと教えてください。ポクは、今でも大丈 
夫だと思っています。 

ドラ Q (新潟） 

■答 

友人に自慢されている様子がよくわかります。似たような経験は誰しも一度 
はあるものです。でも、たったの1年でこんな鋭い疑問がわくのも、その友人 
のおかげと思えばいいじゃないですか。 

この問題は、それほど奥が深いのです。が、通常の場合は質問にあるような 
手法で困ることはありません。それどころか、わずかですがメモリの節約、ス 
ピードのアップ（あくまでも計算上です）になっています。 

では、どんな時に困るかというと、それはスタックを操作しながらプログラ 
ムが走っている場合です0例えば、メインプログラムからサブルーチン 
「 AAAA 」 がコールされ、サブルーチン 「 AAAA 」 の最後でサブルーチン 「 CCCC 」 
がコールされているとします。 

確かに、ここでサブルーチン 「 AAAAJ からサブルーチン ICCCC 」 へジヤ 


33 





MAINP : : 

CAL し ， AAAA 


CALL CCCC 
RET 


CCCC :: 

RET 


ンプすれば、サブルーチン 「 CCCC 」 の RET 命令でメインプログラムへともど 
ります。しかし、サブルーチン 「 CCCC 」 のプログラムが、条件によってはメイ 
ンプログラムへ直接リターンするように設計されていたらどうでしょうか。 

つまり、サブルーチン 「 CCCC 」 が 「 MAINI )」 から数えて常に二段目にコー 
ルされるようになっていて、 条件によってはスタックを操作（スタックポイン 
夕を + 2) して 「 AAAA 」 へもどらずにダイレクトに 「 MAINP 」 ヘリターンす 
るような場合です0もし 「JP CCCC 」 でこのようなケースに出会うと、スタ ッ 
クが狂ってしまい 「 MAINP 」 を通り越してどこかへ域走してしまうことにな 
ります。 

もちろん、ブログラムを作った本人がこのような作り方をしなければ問題は 
ありませんが、共同で大きなプログラムを開発したり、他人のプログラムを借 
用したり、あるいはシステムの内部ルーチンを コールす る場合な ど、 こういっ 
た危険性はアチコチに潜んでいるといえます。 

: N ： 体的な例をあげてみましょう。画面上にピョンピョン跳ねている小さな 
ポールが1つあるとします。ボールは画面に散らばっている釘に触れると破裂 
してしまいます。わかりやすくするため、設定はたったこれだけです。 

サブルーチン 「 AAAA 」 はボールとすべての釘との衝突を管理するルーチン 
で、ボールの動きを管理している 「 MAINP 」からコールされていま寸 
I AAAA 」 では、 HL レジスタにボールの座標、 BC レジスタに釘の座標を入れ、 
次々と座標チェックと破裂を実行するサブルーチン 「 CCCC 」 をコールします。 

サブルーチン 「 CCCC 」 では、ボールと釘との衝突チェックを行いますが、ひ 
とつでも釘とポールが衝突していたら、その時点でボールは破裂し残りの釘と 
の衝突チ ェッ クは不要になります。つまり、サブルーチン 「 CCCC 」 からサブルー 
チン 「 AAAA 」 へもどるのではなく、直接「 MAINP 」 へもどるケースが生じ 
るわけです。これを実現しているのが、破裂処理のあとにあるダミーのスタ ッ 
ク操作です。このスタック操作が成立する前提として、スタックの条件 （レべ 
ル）を統一するようなプログラムが要求されているわけです。 
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AAAA : し D 

HL ,( BALXY ) 

LD 

BC ,( KUGZ 1) 

CALL 

CCCC 

LD 

BC ,( KUGZ 2) 

| CALL 

CCCC 

LD 

BC ,( KUGZ 3) 

CALL 

CCCC 

# 

# 

RET 

• 

• 


CCCC : LD 

A,H 

CP 

B 

RE 

NZ 

LD 

A,L 

CP 

C ; 

RE 

NZ 

• 

POP 

： AP 

RET 

■ ■ ■ J 


— aaaa へもどる 


aaaa へもどる 

破裂のブログラム 

ダミー 


— MAINP へもどる 


面倒そうですが、いずれプログラムに惯れてくると、このダミーを2つ以上 
連続させたり、常にスタックを考えながらプログラムを組むようになるのです。 
新潟のドラ Q 君がそうなるのも時間の問題です。もう友人にも自慢されなくて 
すむでしょう。 
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I 


その 15 


# 令の書き換え 


我輩は猫である。名前はまだない。猫に小判という諺はあるが、猫 
にコンピュータという諺はない。だから、猫がコンピュータに興味を 
持ってもおかしくはない。 

……という害き出しで始まる猫とコンピュータ：という小説を 
知っていますか。おそらく、まだ誰も知らないはずです。というのは、 
まだ完成していないからです。私がその作者ですから、それは間違いのない事実です。 

実は、この猫は超能力を持った猫で、プログラマーである飼い主に、プログラムのバグや欠 
点を教えるというのが話の大筋です。しかし、作者である私がプログラムの初心者なので、欠 

点を直すというのが大変なことなのです。それが、小説が進行しない最大の原因となってぃま 
す0 


いま、小説の中のブログラマー氏が次のような2つのプログラムを組みました。その2つは 

ほとんど同じ内容のルーチンで、まん中の一部が違っているだけです。どのような助言を猫が 
与えるべきでしようか。 


ADDA1 : : SUBA1 : : 

INC A DEC A 

# 

RET RET 


いま考えているのは、前半と後半をサブルーチンとして共通化する方法ですが、そうす 
ると前半の共通ルーチンの途中でリターンしたら困りそうです¬ 
べンネーム猫目漱石 (愛媛） 

■答 

岡 I 」八 y ならぬ猫目八目というわけですか。しかし、猫の先生にあたる作者 
がプログラムをよくわからないとなると、超能力猫からバグ猫に……。下手を 
すると、化け猫小説となってしまいそうです。 

そこで、質問にある修正案通りにブログラムを組んだことにして、それが超 
能力猫の判断に見合うかどうか、まず チヱック してみましょう。 

「 HALF 1」 というのが前半の共通ルーチンで、 「 IIALF 2」 が後半の共通ルー 
チンというわけです。一見すると、うまくまとまったような気がしますが、問 
題は [ IIALF 1」 のプログラムの途中でリターンすることがある場合です。 
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つまり 「 HALF 1」 の途中でのリターンは、そ 
れぞれ 「 ADDA 1」「 SUBA 1」 からのリターンを 
意味していますから、この場合 「 HALF 1」 の中 
で特別にスタック操作をしてリターンしなけれ 
ばならないわけです。 

リターンに関するスタック操作は問（その14 ) 
にもありましたが、キチンとスタックの状態を 
把握さえしていれば難しいことではありません。 
しかし、 ブロ グラムの途中でかりに 「RET Z 」 
などとなっている場合、いったんどこかにジャンプしてからスタックを操作し 


ADDA 1 : 

CALL 

HALF 1 


INC 

A 


JR 

HALF 2 

SUBA 1 : 

CALL 

HALF 1 


DEC 

A 

HALF 2 : 



HALF 1 : 

RE 丁： 



なければならず、意外と面倒です。 

さらに……、 rilALFl I がサブルーチンをコールしているとなると、話はま 
すます複雑になります0というのは、そのサブルーチン先でスタック操作が行 
われている可能性だってあるからです。 

……どうやら、このままでは化け猫小説になりそうな雲行きです。もっと簡 


単な手法で解決することにしましょう。それは、例の說き換えを使う方法です。 

こうすれば、プログ 


ADDA 1 : 

LD 

A ,3 CH 


JR 

ADSB 1 

SUBA 1 : 

LD 

A .3 DH 

ADSB 1 : 

LD 

• 

( POINT ), A 

POINT : 

• 

INC 

• 

_ 

A 


RET : 



3 CH = INC A 


3 DH = DEC A 


ラムを完全共有化でき 
る上、スタックなどの 
余計な心!をする必要 
はなくなります。プロ 
グラムが長くなればな 
るほど、このような齊 
き換えによるメモリ節 


約は効果を発揮してくれます。 

A レジスタの値を破壊したくない場合は、単純に退避させてもいいですし、 
IIL レジスタを使ってもいいでしょう〇 HL レジスタで 「 POINT 」 を指定し、 
「RES 0,( HL )」 とすれば TINC A 」 に 、 「SET 0,( HL )」 とすれば 「DEC 
A 」 となるからです。 

これで、めでたく r 猫とコンピュータ J が完成するといいですね……。 
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フラグで合爵を送る 

以前、新潟のドラ Q という者が質問をしたと思いますが、あれはポ 
クの弟です。弟とポクは3才離れており、ポクも去年は大学受験でし 
た。入学と同時にパソコンを買ってもらったので、パソコンに関して 
は弟と同じレベルです。 

ところで、先日弟がした問（その 14) への回答について、もう少 


し詳しく聞かせてください。あの時の回答には、スタック操作の例としてボールと釘との衝突 


チェックをあげていましたが、脱明としては理解できても現実にはビンと来ないのです。 


それは、 ボールと 釘の衝突を判定するサブルーチン 「 CCCC 」 から、どうして 「 MAINPJ へ 
直接もどるのかという疑問です。衝突チヱックなんていうのは、ブログラム実行時間からすれ 
ば瞬時のできごとです。残りの釘のチヱックをしたところで、実際にはなんら問題は生じない 
はずです。 


それとも、 直接 「 MAINPJ へもどることにより、 
うか。兄として、知りたいと思います。 


なにか特別なメリットでもあるのでしょ 

下宿先のドラ Q II (山形） 


■答 

ク〜ム。そこまで突っ込んだ質問がくるとは、こちらとしても不覚にも予測 
していませんでした。さすが、兄のドラ QII さんです。 

あの時の例は、あくまでもスタック操作の第一歩として出したのですが、今 
N の■問により問題は衝突チヱックのテク ニッ クへまで発展してしまったよう 
です。確かに、実行時間についてだけ考えれば、残りの釘との衝突をチェック 
したところで何の支障もありません。だとすれば、 「 MAINP 」 へ直接もどる必 
要もないということになりそうです。 

そこで、まずは破裂があったかどうかを 「 MAINP 」 へ伝達する方法につい 
て考えてみましよう。最初に思いつくのは、破裂したことを示すワークエリア 
を確保し、そのワークエリアの値を 「 MAINP 」でチェックする方法です。 


( BATWK : DB 〇 

MAINP : : 

CALL AAAA 
LD A , ( BATWK ) 


—衝突チェック 
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OR A 

JR NZ,GOVER 


—破裂フラグが立っていれば 
ゲームオ ーノく一へ 


おそらく 「 MAINP 」 の書式はこのようなものになるはずです。もちろん 
「 BATWK 」 に破裂フラグを立てるのはサブルーチン 「 CCCC 」 の役目です。そ 
して、このようなプログラムであれば 「 CCCC 」 から直接 「 MAINP 」へもどる 
必要もありません。 

つまり、サブルーチン rcccc 」 は衝突があるないにかかわらず、すべての釘 
とのチェックをすればいいからです。では、どのような場合に直接 「 MAINP 」 
へもどったほうがいいのでしょうか。それは 「 MAINP 」 が次のようになって 
いる場合です。 


MAINP : : 

CALL AAAA 
JR Z,GOVER 


ブログラムとしては、見るからにこちらのほうがスッキリしています。破裂 
を示すフラグはゼロフラグですから、ワークエリア 「 BATWK 」 も不要です。 
もちろん、サブルーチン 「 CCCC 」 ではダミーのスタック操作後にゼロフラグを 
立てなければなりませんが。 


CCCC : 


LD 

CP 

RET 

LD 

CP 

RET 

POP 

XOR 

RET 


A,H 

B 

NZ 

A,L 

C 

NZ 


AF 

A 


—AAAA へもどる 


—AAAA へもどる 
—破裂のブログラム 
ーダミー 

—ゼロフラグを立てる 
—MAINP へもどる 
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つまり、残りの釘とのチヱツクを省くことで、衝突の判定に利用したゼロフ 
ラグをそのまま破裂フラグとして利用して いる わけです。もしも、最初のよう 
な書式であれば、ゼロフラグを立てる代わりに、 「 BATWK 」 に1を入れるとい 
うプログラムが必要です。 

今回はゼロフラグでしたが、このほかにもルーチンからルーチンへの条件の 
引渡しには、キヤリーフラグなどもよく使用されます。フラグを単にその場の 
条件分岐のためだけでなく、引数代わりに活用することでプログラムの雰囲気 
はかなり変化してきます。ドラ Q 兄弟にも、あるいは少しばかり差が ついてし 
まったかもしれません。 



4〇 



箱國のぁる離 

ガーガー…… 。エー、 聞こえるあるか。どうぞ…… 。 

こちらは地球から速く離れたアンドロメチヤ星雲、メソポチヤ星 
の外星広報担当、ルートカ•ダッベ将軍ある。ヨロシクあるネ。現在、 
銀河太陽系惑星 • 地球に向け知能情報収集のため超能力波を送信中。 
地球の名誉のため答えるあるよろし……。 

これまでの情報によれば、地球にもようやくコンピュータが発生したようであるが、まだま 
だマシン語は普及してないとのことあるね。わがメソポチヤ星は、マシン語が唯一の言語ある 
が、そのレベルは不明ある。 

例えば、 A レジスタの値が5〜20の範囲にあるかどうかを調べる場合、われわれは次のよう 
に話すあるネ。フラグの使い方の見本みたいあるよ。 A レジスタがその範囲にない時は、キヤ 
リーフラグを立てて結果を返すようにしているある。 



CHECK : 

CP 

5 


RET 

C 


CP 

21 


JR 

NC,SETCY 


OR 

A 


RET 


SETCY : 

SCF 



RET 



地球では、どんなもんあるか。教えるよろし……ガー……。 

ルートカ将軍（メソポチャ星） 

■答 

ヮッ!！ 

いきなり変な質問が私の頭に飛び込んできたある……。どうやら、地球人と 
しての能力を調査されているみたいあるネ。これは、真剣に考えなくては……。 

しかし、プログラムのレベルからすると、入門者と上級者の中間あたりをウ 
口ついているような星のようです。というのは、結果をキャリーフラグで返す 
という高級なテクニックを使っている割には、プログラムがどうも低レベルな 
のです。 

確かに、キャリーフラグのセツト/リセットなど、基本的な常識も知っては 
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います。ところが、それらのテクニックがブログラムに反映されていないので 
す。少なくとも、このブログラムは次のようにするべきです。 


CHECK : CP 5 

RET C 
CP 21 

CCF 
RET 


せつかく ニモニックには 「 CCF 」 というキャリーフラグを反転する命令があ 
るのですから、ここで使わないという手はありません。なかなか rccF 」 を使 
うチャンスなんてないですからね。ここは絶好の使用例といえるでしょう。 

さらに、 A レジスタが破壊されても いい 場合には、マイナスの数値はブラス 
の大きい数値と同じ（問1の図参照）という、マシン語数値独特の特徴が活用 
できます。 


CHECK : 

SUB 

5 


CP 

21-5 


RET 



最初に5を引いてしまうことにより、5未満の数 （0 〜 4) は 一 5〜一1、つ 
まり十六進数では FB „ 〜 FF „ となります。これは結局21以上 （5 を引く前）の 
数値ですから、一度の CP 命令で範囲のある判定ができるわけです。 

ただし、この判定ではキャリーフラグの立ち方が最初の例と反転しています。 
このブログラムを コールし ているほうでも、条件分岐の条件を反転させる必要 
があるのは言うまでもありません。 

こうしてみると、地球のマシン語レベルも国際的、いや宇宙的に通用しそう 
なレベルにあるではありませんか。どうであるか、ルートカ•ダ ッぺ 将軍 . ？ 
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拙者の名は、武蔵。名前が古いせいか、どうも話し方まで古くさい 
が、その点はご勘弁願いたい。 

現代の武蔵はパソコンをこよなく愛し、マシン語を自在に搡ろう 
と日夜キーボードを叩いておる。先んずれば人を制す。これも、永速 
のライバル小次郎に先を越されないための知惪である。 


とはいえ、現代の小次郎もどこかでパソコンをいじっているに違いない。いずれマシン語で 
対決する時が来るであろう。時代は違っても、武蔵が小次郎に負けることは許されぬことなの 
じや。 


拙者はいま、対決用プログラムの中で HL / DE / BC の各ベアレジスタを2倍にしなければ 
ならんのだが、 HL レジスタが使用中のためどうもうまくいかん。どうしたものであろうか 
. 。海が荒れよるのォ。 


武蔵旅情（玄海灘) 


画答 

パソコンは人を選ばない。しかし、マシン語を話さない者には本当の心を開 
かないという。1台のパソコンをめぐって、マシン語とマシン語の壮絶な戦い 
が始まる……。 

戦いに勝つためには、限られた ニモニックの 中で、最大限の工夫とヤ リクリ 
をしなければならないのです。勝負の世界のキビシサ、それは剣が マシン 語に 
変わっても永遠に変わらぬ心理です。 

ということで、 HL レジスタを2倍するのは簡単です。 


ADD HL,HL 


しかし、レジスタの値を2倍するというのは、なにも同じレジスタどうしを 
力 tl えるだけではありませんね。そうです。左方向へシフトすればいいのです。 
その逆に右方向へシフトすれば、レジスタの値は半分になります。 

ただし、残念なことに8ビットレジスタのシフト命令はあっても、16ビット 
レジスタを一度にシフトする命令はありません。そこで、この出っばったキャ 
リーフラグを利用するのです。 







DE レジスタの値を 2 倍にする BC レジスタの値を2倍にする 


DE レジスタの値を1/2倍にする BC レジスタの値を1/2倍にする 


たったこれだけのことですが、 HL レジスタを介さないで目的を達成したこ 
とに意義があるのです。つまり、ペアレジスタに関する命令はほとんどが HL 
レジスタに関係していますから、 1 IL レジスタが使用中の場合には実に不便な 

のです。したがって、このような答は簡単であればあるほど利用価値があると 
いうわけです。 

でも、これのどこが対決プログラムになるんだろうか……？ 




r 

SLA 

E 

R し 

D 


SLA 

c 

RL 

B 


キヤリ—フラグ 




キヤ U — フラグ 
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"^イナスの鑛を 1/2 K まる 


遅いぞ、武蔵!！ 

もはや、拙者の対決ブログラムは完成しておる。あとは武蔵の到着 
を待つばかりなのだが、拙者は到着が遅いからといってイライラし 
たりはせぬ。拙者だって、過去の話くらいは知っておるからな。 
それにしても遅い……。まさか逃げたのでは。とりあえず、最後の 
プログラム チェック だけでもしておこうか。 

ヤヤヤッ!！暴走してしまった。まだ、プログラムにバグがあるようだ。どうもデータを半 
分にする部分がマズいようだ。本に載っていたのを、そのまま信用して使ってみたのだが、あ 
の本にはバグでもあるのかも知れぬ……。 

拙者の場合、マイナスのデータを半分にしただけなのだが、たしかマイナスとはプログラム 
を組む者が数値をどう見なすかという問題のはずだ。だから、そこにバグがあるとは思えぬし 


ちなみに、そのマイナスのデータは A レジスタと DE レジスタについてであるが、次のよう 
に本の通りにしている。ウ〜厶……わからん。 


A レジスタを1/2にする DE レジスタを1/2にする 



もしかすると、あの本は武蔵の謀略本なのだろうか 


ツバメ小次郎（巌流島） 

■答 

すでに武蔵と小次郎の心理戦は始まっているようです。ただ、どちらもプロ 
グラムが未完というのが気になりますが……。それにしても、あの巌流島でマ 
シン語とマシン語が火花を散らすなんて、ワクワクしてしまいます。 

さて、このバグは謀略によるものなどではありません。数値をマイナスと見 
なすか、プラスと見なすか、それは確かにプログラムを組む人の勝手です。し 
かし、数値を1/2にする場合はブラス/マイナスをキチンと区別しなければな 
りません。問（その 18) の方法は、あくまでも数値をブラスと見なしている場 
合に有効なのです （2 倍にするほうはプラス/マイナスを問わない）。というの 
は、マイナスと見なした数値の割り算（割る数=2以上の場合）では、必ず最 
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上位ビット =1 としなければならないからです。わかりにくいので、具体的な 
例で確認してみましょう。 

A = 11111100 B を252と見なした場合 ： A + 2= 126 (01111110 B ) 

A = 11111100 B を 一 4と見なした場合 ： A + 2= — 2 (11111110 B ) 

A = 00000100 B を 4と見なした場合 ： A + 2= 2 (00000010 B ) 

A = 00000100 B を 一 252と見なした場合 ： A + 2= —126 (10000010 B ) 
したがって、数値を常にマイナスと考えるのであれば、1/2したあとで最上 
位ビットを1にするか、最初に「 SCFJ としてキャリーが最上位ビットに入る 
ように ローテー トすればいいわけです。しかし、数値のブラス/マイナスをサ 
インフラグ（最上位ビット）に従って判断しようという場合は、最上位ビット 
の値が1/2後もそのままになるようにしなければなりません。 


符号付きの1/2計舞 



キヤリーフラグ 

こうすれば、 一 128〜127 ( 1バイトの場合）、 一 32768〜32767 ( 2 バイトの場 
合）の数値をブラス/マイナスを問わずに1/2にシフト演算できます。そして、 
マシン語にはまさにこのための命令 （ SRA 命令）が最初から用意されているの 

です。つまり、プログラムを次のように訂正することで、問題のバグからは解 
放されるでしょう。 


A レジスタを1/2にする DE レジスタを1/2にする 



どうやら、武葳も小次郎も問題が解決した模様です。私はミーハーですから、 
マシン語とマシン語の凄惨な対決を早くテレビで見たいものです。 
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1 か____|^_誦 

CQ 2 メーター 、 CQ 2 メーター……。どなたか応答願います。こ 
ちらは難破船であります。現在地不明。乗務貝一名。 

初のパソコンによる自動搡舵システム実験のため、栄光の出港を 
してからどのぐらいの時がたったのでしょう。残された電源は太陽 
霣池だけとなり、日没ともに自動搡舵システムは波まかせとなって 

しまいます。 

おまけに、本船のパソコンによる計算ルーチンにはバグがあったのです。ソースリストを見 
ると、かけ算ルーチンが空白のままなのです。おそらく、プログラマー氏があとから害くつも 
りだったのでしよう。コメントとして……、 



HL = HL x 144 


と、なっていました。これは、 HL レジスタの値を144倍するというような意味のはずです。 
でも、それ以上はわかりません。どなたか、このかけ算ルーチンをマシン語で作ってください。 
このままでは、いずれ幽霊船になってしまいます。 

こちらのコールサインは 「J J 1 V RQJ です……。 

難破船長パフ x (太平洋） 

■答 

「 J J 1 VRQ 」 ……? 

ち、ちょっと、そり ゃ 私のコールサインですゾ。まだ一度も使ったことがな 
いのに、どうしてそんなところに……。難破船にナンパされてしまった!？ 
これは、真剣になってコールサインを取りもどさなければいけません。 ニモ 
ニックの一覧表（インストラクション表）には、かけ算の命令などありません。 
すなわち、マシン語でのかけ算は、足し算を繰り返すしかないということです。 


EX 

DE # HL 

LD 

HL ,0 

LD 

B ,144 

LOOP 1 : ADD 

H し , DE 

DJNZ 

L 00 P 1 
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これが、もっとも単純に考えられる足し算によるかけ算です。これでも正し 
い結果は得られますが、ループを使用したかけ算では、ブログラムの長さに比 
ベて実行ステ ー ト数がかなり長くなってしまいます。 

早い話、これはカツコ悪いということです。そこで、144という数字を次の 
ように分解します。 


144 = 2 X 2 X 2 X 2 + 2 X 2 X 2 X 2 X 2 X 2 X 2 


レジスタの値を2倍にするのは簡単です。それを繰り返せば、2倍が4倍、 

4倍が8倍と、ガマの油売りの前口上みたいに倍々にふくらんでいきます。こ 
れをプログラムで実行するのです。 


— 2 倍 

— 4 倍 

— 8 倍 
—16 倍 

— DE =16 倍した HL 
—32 倍 
卜 64 倍 

— 128 倍 

— 144 倍 (128 倍+ 16 倍) 


ADD 

H し， H し 

ADD 

HL,HL 

ADD 

H し , HL 

ADD 

HL,HL 

LD 

D,H 

LD 

E,L 

ADD 

H し， H し 

ADD 

HL,HL 

ADD 

HL,HL 

ADD 

し _ 

HL,DE 


かける数の決まつたかけ算は、このように2の倍数で分解してから計算する 
と、実行時間が大幅に短縮します。この効果は、かける数が大きくなればなる 
ほど、そしてかけ算をする回数が増えれば増えるほど大きく現れてきます。 
では、早くブログラムを直して 、「 J J 1 VRQ 」 を返してください。 
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わたしはコンピュータ占い師マーサ•カーイといいます。実は、コ 
ンビュータ占いといいましても、これまでのものはほとんどがイカ 
サマでした。あえてネタをばらしてしまいますと、最初にインブット 
した占いデータを、ただ順番に出していただけなのです。 

わたしは、職業がら女装をしていますが、本当は男性です。これも 
一種のイカサマなのですが、このほうがなんとなく神秘的に見えるのです。 

ところが、先日イカサマを見破られてしまったのです。アラ、女装のほうではなくプログラ 

ムのほうですワ。ホホホ . 。そこで、これからは本格的にコンピュータ占いをブログラム化 

しようと思い、覚えかけのマシン語でプログラムを組み始めました。 

でも、データをブロ ッ ク転送する際に、時々データがメチヤクチャになってしまうことがあ 
るのです。そのブロ ッ ク転送は、5000 „〜5 FFF „ 番地の内容を5100"番地へ転送するという簡単 


なものです。 

「LD 

HL , 500 0 H 

LD 

DE , 510 0 H 

LD 

BC , 100 0 H 

LDIR 

1 I ■■— 



HL レジスタに5000,,番地をセット、 DE レジスタに転送先をセット、そして BC レジスタに 
は転送バイト数をセットしています。どこも悪いところはないはずです。こればかりは占うこ 
ともできず、困ってしまいますわ、ホント。 

ニューハーフ 占い師 マーサ （東京） 


■答 

こういう丁寧な質問をいただきますと、こちらまで女装した気分になってし 
まいそうですわ、オホホホ . 。 

なんだか、おかしな空気が漂いだしたようです。このままでは、まともな回 
答ができなくなりますので、失礼ですが相手を見ないようにして答えることに 
します。 

このブロック転送は、一見するとなんのバグもないように見えます。特に、 
バグがないと思ってしまうと、長いこと悩むことになるほどです。 

しかし、ブロック転送において、転送するデータのあるアドレスとその転送 
先が®なっている場合は、 LDIR 命令と LDDR 命令をキチンと使い分けなけれ 







ばなりません。今回の場合も、このままでは500 0 H 番地の内容が5100 H 番地に転 

送された時点で、まだ転送し終えていない510 0 H 番地の内容が消えてしまって 
いるのです。 

では、どのように2つのブロック転送命令を使い分けるのか、図によって確 
認してみましょう。 

LDIR 命令（アドレスの小さい方から頋次転送していく） 

アドレス® アドレス® 



LDDR 命令（アドレスの大きい方から顆次転送していく） 


転送先がオリジナルのデータと重ならない場合、一般には LDIR 命令が使用 

されます0それは、いちいち転送データのエンドアドレスを計算しなくて済む 

からです。そのせいでしようか、ついつい LDDR 命令というのは忘れられ がち 

な存在です。しかし、天災とバグは忘れたころにやってくる。それを忘れな ぃ 
でください。 




これで、ブロック転送は完璧に行われるはずですわ、オホホホ …… 。しま っ 
た、また相手の顔を見てしまったわ。ヮヮヮ . 。 
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わたしはナース。つまり看護婦さんです。でも、本当をいうとまだ 
看護婦見習いなんです。看護婦さんっていうと、白衣の天使なんて憧 
れる人もいますけど、実際はすごく大変な仕事です。 

それはさておき、わたしは看護学勉強のためパソコンを活用しよ 
うと思っています。でも、そのためのソフトなど市販されていません 
から、プログラムも全部自分で組まなければならないのです。プログラムはマシン語を使って 
いますが、不憤れのためバグがないということしか自信はありません。 

ここに、 A レジスタの値 （1 〜 5) によって5個所に分かれるようなブログラムがあります。 
バグはないと思いますが、誰でもこう組むものでしようか。 



CP 

1 

JR 

Z , PR 0 G 1 

CP 

2 

JR 

Z , PR 0 G 2 

CP 

3 

JR 

Z . PR 0 G 3 

CP 

4 

JR 

癱 

Z , PR 0 G 4 

PR 0 G 5 : : 

• 



せめてブログラムだけでも見習いの肩書きが取れるとうれしいのですが。未熟なわたしの 


ブログラムを、どうぞよろしくお顳いします。 


ホワイトエンジェル（佐賀) 


■答 

ナース……。なんと美しい言葉のひびき。これでは、白衣の天使に憧れて、 
無理にヶガをする人が続出しそうです。ついでに、マシン語のバグを治療して 
くれるような看護婦さんがいると、マシン語がもっともっと広がるのですが 


それにしても、バグが出ないだけでは満足せず、さらに上を目指すというファ 
イトはこちらが見習いたいほどです。 

実は、このようなブログラムは初心者がよく作ります。しかも、プログラム 
としてはバグはありませんから、このままズルズルと中級者になってしまうこ 
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とも少なくないようです。しかし、条件分岐というのはプログラムの重要な拠 
点ですから、できるだけシンブルに、そして素早く分岐させることが大切です。 

この例は、そういう意味では初歩の条件分岐といえるでしょう。ここでは分 
岐の条件にゼロフラグだけしか使用していませんが、せっかく CP 命令を実行 
したのですから、せめてキャリーフラグまでは活用したいものです。 


CP 

2 

JR 

C , PR 0 G 1 

JR 

Z , PR 0 G 2 

CP 

4 

JR 

C , PR 0 G 3 

JR 

Z , PR 0 G 4 

1 


PR 0 G 5 : 


CP 命令を使う回数が4回から2回になりました。とりあえず、この程度の条 
件分岐ではこんなものでしようが、分岐 テクニックに はまだまだ種類がありま 
す。プログラムの レベルが 上がる につれ、 分岐の レベル も合わせて上げて いか 
ない と、プログラムが条件分岐の山になってしまいます。 

そんな時にこそマシン語専用のやさしい看護婦さんがいてほしい、と多くの 
孤独なプログラマーは願っているのです。 




_ 通項のあるジャンプ 

私は、俗に団塊の世代といわれる中年のオッサンです。特にこれと 
いった趣味はありませんが、まだまだ若いモンには負けるかという 
気持ちで、パソコンなども頑張ってやっております。 

趣味はないと害きましたが、実は趣味に近いような形で学生のこ 
ろから統けていることがあります。それは献血です。献血回数は、今 

のところ48回ですが、目標は100回を超えることです。 

献血をすると、しばらくして血液の分析結果が送られてきますが、私はこのデータをバソコ 
ンにインブットして健康管理に役立てています。いま、 A レジスタの値によって条件分岐する 
プログラムがあるのですが、ジャンプ先ではすべて A レジスタの値を8にしなければなりま 
せん。 

現：#のブログラムを簡単に香いてみますが、なぜか無駄があるような気がします。 


その23 


CP 

2 

JR 

C . PROG 1 

JR 

Z , PR 0 G 2 

CP 

4 ! 

JR 

C , PR 0 G 3 

； JR 

Z , PR 0 G 4 

i PROG 5 : LD 

• A ,8 ! 

• 

• 

- 


以下、 PROG 1 〜 PROG 4 すべて 「LD 
良できるかどうか見てください。 


A ,8 J で始まります。無駄があるかどうか、そして改 

中年べビー（兵庫） 


■答 

同じようなタイプの人間は、アチコチにいるものです。私も、今では献血は 
趣味みたいなもので、血を抜いてもらうと気分がスッキリするほどです。それ 
に、あのチクリと射された瞬間の痛みは、慣れると快感ですからね……？？？ 
ところで、献血された血液は一滴も無駄にしないそうですが、このブログラ 
ムには想像どおり無駄があります。それが、すべてのジャンプ先にある 「LD 
A , 8」であるということは、誰でも簡単に想像がつくでしよう。しかし、そん 
な簡単なことでも、いざ解決しようとすると、すぐには名案が浮かばないかも 
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しれません。あるいは、そんなことは気にしないという人もいるでしょう。 

でも、この本を読んだからには、ブログラムの無駄は省くようにしてもらわ 
なければなりません。 


LD 

B,A 

LD 

A .8 

DEC 

B 

JR 

Z , PR 0 G 1 

DEC 

B 

JR 

Z , PR 0 G 2 

DEC 

B 

JR 

Z , PR 0 G 3 

DEC 

B 

JR 

Z , PR 0 G 4 

PR 0 G 5 : : 

• 

- l 


しれで、ジャンプ先では 「LD A ，8」 をする必要がなくなったわけです。で 
は、判断する A レジスタの値に0が含まれている時はどうでしょうか。 

敁初のやり方であれば 、 「OR A 」 としてゼロフラグでジャンプさせるか、 
rep 1」としてキャリーフラグでジャンプさせることができます。今回も同様 

にキャリーフラグが利用できれば いいので すが 、 「DEC B 」 ではキャリーフラ 
グは不変です。 

これに対する1つの解決策は、敁初の 「DEC B 」 の前に 「INC B 」 として 
しまうことです。こうすれば、すべて同じようにゼロフラグでジャンプできる 
からです。また、もう1つの方法はサインフラグを見てジャンプさせる方法で 

to 


DEC B 

JP M,PROGO 
JR Z , PR 0 G 1 


相対ジャンプ （ JR ) 命令には、サインフラグによる条件分岐がありま せんか 
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ら、この場合だけは絶対ジャンプ ( JP ) 命令を使います0また、サインフラグ 
は 「DEC B 」 の結果、 B レジスタの値が80„〜 FF H であればすべて立ちますか 
ら、この手法でゼロが判定できるのは、 B レジスタの初期値が128以下 (0 〜 80 h ) 
の場合に限られます。 

したがって、それ以上の条件分岐をしたい場合は 、 「INC B 」 をしてから 
「DEC B 」 でゼロ判定をするしかありません。もっとも、それほどたくさんの 
分岐がある場合には、分岐方法自体を考慮するのが普通です。 

それについては、問（その 24) で……。 



55 





7" ー ブルを利用したジヤンプ 

、話その1:ポクの友人は、50メートル競泳を見て「あれは身長競 

争だ J と言い張っている。ワケを M くと「だって、身 
長50 メートルの人間なら飛び込むだけでゴールだ」 


だらない……なんて言わないでください。こんな小話を作るの 
が、わが校自慢の小話クラブです。すでに、名作と自称するものがかなりあります。でも、大 
変なのはそれを管理することです。とはいえ、そこは高校のクラブです。なんと、名作小話を 
パソコンで管理することになったのです。 

……ということで、ブログラマーはバソコン所有者というだけの理由でポクの役目となり 
ました。もちろん、カツコつけてマシン語でブログラムを組んでいます。 

いま、〇〜99までの小話に簡単なアニメをつけようとしています。そのため、小話の番号別 
にそれぞれのルーチンへジャンプさせなければなりません。 

I I 

| CP 1 

JP C,ANIOO 
I JP Z , A _1 

I CP 3 j 

JP C . ANI 02 
JP Z . ANI 03 



こんな感じで各アニメ処理ルーチンへジャンブさせようとしていますが、どんなもんで 
しょうか。小話同様、名作と言われるようなプログラムにしたいと思います。 

クラブ小話（和歌山） 


I 答 

同じような小話をひとつ……。 

食事中に、母が肥満ぎみの父に向かって「理想の体重は身長から110を引い 
た値よ」と言った。それを聞いていた小学1年生の息子が、突然食べるのをや 
めた。ちなみに、息子の身長は 110 cm だった……。 

クラブ小話……なんだか、銀座のクラブと間違えそうな名前ですが、一応は 
高校のクラブと信じておきましょう。でも、この質問には銀座のクラブ「小話」 
のほうが解決しやすいのです。というのは、テーブルを使うからです 9 ?? 
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もちろん、ここでいうテーブルとはジャンプ用テーブルのことです。とりあ 
えず、サンプルとしてテーブルには10のジャンプ先を用意してみました。 


TABLE : 

DW 

ANI 00 # ANI 01 # ANI 02, ANI 03 / ANI 04 


DW 

ANI 05, ANI 06, ANI 07, ANI 08, ANI 09 

ATJMP : 

LD 

HL,TABLE 


RLCA 



LD 

E,A 


LD 

D ,0 


ADD 

HL,DE 


LD 

E .( HL ) 


INC 

HL 


LD 

D ,( HL ) 


EX 

DE,HL 


JP 

( HL ) 


これが、テーブルジャンプの一般的な用法です。ジャンプ先を増やすには、 
このテーブルにジャンプ先を追加するだけです。ブログラムも短くて済む上、 
どのルーチンへジャンプするのも実行時間が変わらないというのが特徴です。 

この ブロ グラムでは、 A レジスタの値が〇〜127までという条件がつきます 
が、もし A レジスタをフルに使用したい場合は次のようにすれば 0 K です。 


ATJMP : LD 

L,A 

LD 

H.O 

ADD 

HL,H し 

LD 

DE,TABLE 

ADD 

HL,DE 

LD 

E ,( HL ) 

INC 

HL 

LD 

D ,( HL ) 

EX 

DE,H し 

JP 

( HL ) 


ほとんど同じといえないこともありませんが、常に最少バイト•最短ステ ー 
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卜を考えるのがマシン語のおもしろさの一面ですから、あえて分けてあるので 

to 

さて、 プログラムの 最後に 「JP ( HL )」 という命令があります。普通は （ HL ) 

というと HL レジスタの指し示すアドレスの中身という意味ですが、この命令 

の場合は HL レジスタが示すアドレスへのジャンプとなります。 

同様の表現で 、 「JP ( IX)J TJP ( IY )」 という命令がありますが、これもィ 

ンデツクスレジスタの指し示すアドレスへのジャンプです。こういう紛らわし 

いカツコはないほうがいいのですが、きっとカツコつけたかったんでしょう 
. 9 9 9 
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/ タックを利用したジャンプ 

ホッブステッブジャンブで、こちらは南海の狐島で孤独な生活を 
送っているナゾの漂流者です。電気もない、ガスもない、水道もない、 
ナイナイずくしの中で、唯一の楽しみは頭を使った「想像マシン語」 
です。 

時間だけはタップリとあるので、そのうち「想像マシン語」による 
「想像ゲーム」ができるはずです。でも、「想像デバッグ」を想像するだけでメゲそうです。 

最近、覚えたばかりのテーブルジャンプを重宝して使っていますが、 HL も IX も IY も使用 
中のルーチンがあります。だから 、 「JP ( HL ) J も 「JP ( IX )」も 「JP ( IX ) J もできませ 
ん〇 

どうやって、目的地のテーブルへジャンプしたらいいでしょうか。 

半魚人（沖の鳥島） 


その25 


■答 

ち、ちょっと沖の鳥島といったら、このあいだ話題になった水没寸前の岩じゃ 
ないですか。どうやって、そんな島へ……!? 

盲将棋というのは聞いたことがあるけど、「想像マシン語」による「想像ゲー 

ム」というのは初耳です。それが完成した時には、本物の人間 コンピュータの 
誕生として大 ニュースになる でしょう。 

テーブルを用いてジャンプするのに、 「 JI ) ( HL )」 も 「JP ( IX )」も 「 JI ) ( IY)J 
も使えないということですが、これは詰将棋でいうならちょっとヒネった一手 
詰めといつたところです。問（その 24) を例にしてプログラムを組んでみましょ 
9〇 


ATJMP : 


PUSH 

HL 

LD 

HL,TABLE 

RLCA 


LD 

E,A 

LD 

D ,0 

ADD 

HL,DE 

LD 

E ,( HL ) 

INC 

H し 

LD 

D バ HL ) 

POP 

HL 
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PUSH DE — 「JP ( DE ) J を実現するため 

RET 


これはスタック操作の一種なのですが、 DE レジスタの値をスタックに入れ、 
RET 命令によりそのアドレスにもどるようにジャンプするものです。このテク 
ニックを使うと、結構色々な形のジャンプができそうですね。 

では、 A レジスタも含めて空いているレジスタがまったくない場合はどうし 
たらいいでしようか0こんな時にも、さりげなくエレガントにスタックの中身 
をリターンアドレスとすることができます。 


ATJMP : 

PUSH 

HL 


PUSH 

AF 


LD 

HL,TABLE 


RLCA 



ADD 

A,L 


JR 

NC , ATJP 1 


INC 

H 

ATJP 1 : 

LD 

L,A 


LD 

A ,( HL ) 


INC 

HL 


し D 

H ,( HL ) 


LD 

L,A 


POP 

AF 


EX 

( SP),HL 


RET 



テーブルアドレスの計算には、問（その 7) にあるテクニックを使っていま 
す0リターン直前の 「EX ( SP ), HL 」 で、 HL レジスタにあるジャンプ先がス 
タックに入り、最初に退避した HL レジスタの値と入れ換わります 。 「PUSH 
HL 」 を、さりげなく活用している点に注目してください。 

そろそろ、救援船にスタックジャンプしたらどうですか。天才半魚人さん！! 
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その 26 


映画ってスバラシィですね。映画を見るたびにそう思わずにはい 
られません。涙と笑いを誘いながら、夢と感動を与えてくれるので 
す。そして、映画館から外へ出た時の太陽のまぶしさと現実の鼓動、 
このギャップはテレビでは絶対に味わえないものです。 

ところで、映画にはよく実在する町がでてきます。そして、映画の 
町こそが本物の町のような錯覚を覚えます。でも、日本にはカサだけを売っている傘屋さんな 
んてあるでしょうか。私は見たことがありません。 

それなのに、〔シヱルブールの雨傘.|の舞台は傘屋さんです。もし実在するなら、あんな町 
のあんなお店で傘を買ってみたい……。 

そんなことを考えながら、プログラムを組むのが私の楽しみです。いま、 A レジスタには 
ビット別に意味を持たせた値が入っています。つまり、8種類のフラグになっているわけです 
が、これを ビッ ト別に各ルーチンへジャンプさせたいのです。 


MAINP : RRCA 

- - 

JR 

C , PROGO 

RRCA 


JR 

C , PR 0 G 1 

RRCA 


JR 

C , PROG 2 

RRCA 


JR 

C , PROG 3 

RRCA 


JR 

C , PROG 4 

RRCA 


JR 

C , PROG 5 

RRCA 


JR 

C , PROG 6 

RRCA 


JR 

C , PROG 7 

RET 

1_ 



—ビット0=1なら PROGO へ 
—ビット1=1なら PROG 1へ 
—ビット2=1なら PR 0 G 2 へ 
—ビット3=1なら PR 0 G 3 へ 
—ビット4=1なら PROG 4 へ 
—ビット5=1なら PR 0 G 5 へ 
—ビット6=1なら PR 0 G 6 へ 
—ビツト7=1なら PROG 7 へ 


ジャンプの優先権はビット0から順番に低くなっていきます。そして、このようにビット別 
にジャンプをさせるケースが数力所あります。こういう場合はテーブルを利用したジャンプ 
は無理でしょうか。 

喫茶シェルブール（長崎） 
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■答 

シェルブールとはどんな町なのだろう。町には音楽があふれ、人々は色とり 
どりの傘をさしながら歩いている……。 

r シェルブールの雨傘 j を見た人ならそう思って当然ですよね。私も、その 
美しさに愤れて、わざわざシヱルブールまで行ってきました。できたら、おみ 
やげに傘でも買おうと思いながら……。 

小さな港町には、にぎわいも音楽も傘屋もありませんでした。観光客もいな 
い、ただの田舎町です。ひょっとすると会えるかも、と思ったカトリーヌ•ド 
ヌーブ……いるわけがありません。 

でも、なぜかホッとしました。みやげもの屋なんてあったらガックリきたで 
しょう0ただの町だからこそ、シヱルブールは永遠にすばらしいのです。少し 
古い情報ですが、今でもそんな素朴な町だと信じています。 

さて、このようなブログラムでもテーブルによるジャンプは可能です。 


TABLE : 

DW 

I 

PROGO , PR 0 G 1, PR 0 G 2, PR 0 G 3 


DW 

PR 0 G 4, PR 0 G 5, PR 0 G 6, PR 0 G 7 

BTJMP : 

LD 

HL,TABLE 

JUMP 8 : 

LD 

B ,8 

JMP 8 L : 

RRCA 



JR 

C,HLJMP 


INC 

H し 丨 


INC 

HL 


DJNZ 

RET 

JMP 8 L 

HLJMP : 

LD 

e ,( hl ) 


INC 

HL 1 


LD 

D ,( HL ) 


EX 

DE,HL 


JP 

( HL ) 


一見すると、これは質問にあったプログラムより複雑で、時間もメモリも余 
計に消費しそうな感じがするでしょう。それは事実であり、あえてこのように 
する必要がない場合も多いかもしれません。 
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しかし、このプログラムの特徴は、複数のテーブルがあってもプログラムを 
共通して使用できる （ JUMP 8 以下）という点にあります。また、ジャンプ先 
をテーブル上で管理できるので、変更やデバッグが非常に楽になります。 
七色の雨傘ならぬ、八色のテーブルジャンブとして活用しましょう。 




(>3 




2 つのプログラムを共有する 

ヒッヒッヒッヒ . 〇 

わたしや魔女じやよ。ホラ、あの黒いとんがり帽子をかぶって、魔 
法のホウキにまたがって空を飛ぶ魔女じや。有名じやから、知ってお 
るじやろ。 

でも、この魔法のホウキが、実はマイクロコンピュータに制御され 


ていたなんてことは知らんじゃろ。このホウキの秘密は、この長い柄にあるのじゃ。この柄に 
はいくつかのバージヨンがあってな、魔女のランクによって交換されるシステムなのじゃよ。 
わたしや、ランクの低い三等魔女じやが、秘かにマシン語を覚えて、この柄のプログラムを 


変えてしまおうと思っているのじ や。 


そこで質問じや。柄のほうのプログラムは何とかするとして、問題は動力部にあたる刷毛 
(はけ）とのヤリトリをどうするかじや。勝手に柄のプログラムをいじると、刷毛が柄のプロ 
グラムを コールし ている場合に困るじやろ。 


つまり、バージヨンの違う複数のプログラムを相互に利用し合うにはどうしたらいいじゃ 
ろか、というのが質問なのじゃ。 

魔女だからといって、イジワルはしないでおくれ……。 

西洋の魔女（ノー トルダム） 


I 答 

確か、ノー トルダムに住んでいるのは‘せむし男，のはずでは……？ それにし 
ても現代の魔女はマシン語まで勉強しなければならないとは、本当にご苦労な 
こととしか言いようがありません。 


質問があまりにも魔女的なので、もう少し普通の人間にもわかるように、問 
題を具体化してみましょう。例えば、 ® というブログラムが 5000 „〜7FFP、„ に 
あるとします。ちなみに、魔女さんの話でいえば、これが柄のブログラムです。 
そして、⑧というブログラムが 0000 „〜4 FFF „ に存在していると考えてくださ 
い。これが、すなわち刷毛用のプログラムです。 

㊇ と⑬が単なる連続したプログラムであれば、 ㊇ から⑧のプログラムをコー 
ルしたりジャンプするのは自由です。同様に⑧から®のプログラムを利用する 
ことも自由です。しかし、状況によって ㊇ のブログラムが©というブログラム 
に変わるとしたら、あるいは⑧のブログラムが⑬にバージョンアップしたらど 
うなるでしようか。 
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ブログラムが変更になったり、バージョン 
が変わったりすれば、サブルーチンのアドレ 
スも当然変化していると考えなければなりま 
せん。そうなっても問題がないようにするに 
は、たとえプログラムが変化しても、サブルー 
チンのエントリーアドレスが変化しないよう 
にすればいいわけです。 

これに対する1つの解決策は、最初からサ 
ブルーチンのメモリ領域にゆとりを持たせて 
おくことです。こうすれば、少しくらいブロ 
グラムを変更しても、そのゆとり内で処理することができるからです。 

しかし、この方法には無駄なメモリ消がが多い上、サブルーチンが多くなる 
と開発そのものに支障をきたします。常にアドレスを考えながらプログラムを 
組まなければならないし、ゆとりの範囲内に新しいプログラムが納まらなけれ 
ば、メモリの空きを探してアチコチにジャンプさせなければなりません。第一、 
プログラムを組むのに、プログラム以外のことに神経を使うのは不経済です。 

そこで、互いのブログラムの先頭部分にジャンプテーブルを作り、相手のサ 
ブルーチンを利用する際には、そのジャンプテーブルに対して行うようにする 
のです。 


7FFF 


500 Oh 


4FFFh 


000 Oh 



ブログラム®© ブログラム⑧ ◎ 



ORG 

5000 H 



ORG 

0 

BBBB 0 

EQU 

0000 H 


AAAA 0 

EQU 

5000 H 

BBBB 1 

EQU 

0003 H 


AAAA 1 

EQU 

5003 H 

BBBB 2 

EQU 

0006 H 


AAAA 2 

EQU 

5006 H 

BBBB 3 

EQU 

0009 H 


AAAA 3 

EQU 

5009 H 

BBBB 4 

EQU 

000 CH 


AAAA 4 

EQU 

500 CH 


JP 

AAAA 0 



JP 

BBBB 0 


JP 

AAAA 1 



JP 

BBBB 1 


JP 

AAAA 2 



JP 

BBBB 2 


JP 

ADUMY 



JP 

BDUMY 


JP 

ADUMY 



JP 

BDUMY 
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ADUMY : RET BDUMY : RET 



この例では、それぞれ 3 つずつ共通ルーチンを使用し合っており、予備とし 
て2つのダミージャンプ先を確保しています。こうしておけば、将来 バージョ 
ンアップした場合、5つまで共通ルーチンを利用することが可能です。ジャン 
プテーブルは必要に応じていくらでも増やすことができます。 

利用の仕方は簡単ですね。例えば、⑧から⑧の 「 BBBB 2」 をコールしたい 
場合、そのまま rCALL BBBB 2 J とすればいいのです。アセンブル作業は、 
それぞれ独自に行いますから、たとえ®のブログラムを修正して共通ルーチン 
のアドレスが変わっても、⑬のプログラムには何ら影鹄を与えることはありま 
せん。 

おそらく、魔女ホウキの柄と刷毛の関係もこのようになって いるは ずです。 
うまくいけば、三等魔女のホウキも一挙に一等糜女のホウキに化けられ るで 
しよう。 
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M 


その 28 


Djnz 命令の特徴 



みや一 . 〇 

おみや一、ナーゴヤいうたらエーところだでヨー。きしめんはウ 
ミャーし、ういろうもウミャーし、大阪と東京のエーところを取り入 
れた日本の中心都市だでヨ。それに、もうひとつの名物はバチンコ屋 
だで。 


実は、わしゃパチンコが好きで好きで、そ一れでナーゴヤに越して来たばかりの老人だで 
ヨ。だから、これはテレビで覚えたインチキのナーゴヤ弁じや。テレビじや、ミヤーミヤー言 


うとったけど、実際にはそうでもないみたいだで。 

それはそうと、わしのパチンコ仲間で出る台の番号をパソコンで研究しておるやつがおる 
でヨ。わ一しはそのソースリストを持っとるでな、ブログラムの無駄をなくそう思って一部直 


してやったでヨ。 


L 00 P 1 : 

フ 

A ,( HL ) 


CP 

5 


RET 

C 


CP 

30 


CCF 



RET 

NC 


INC 

HL 

L 00 P 2 : 

DEC 

B 


JR 

NZ # LOOPl 

L 一- 

RET 



LOOP 1 : 

J 

A ,( HL ) 


CP 

5 


RET 

C ； 


CP 

30 


CCF 



RET 

NC 


INC 

H し 

L 00 P 2 : 

DJNZ 

LOOP 1 

1 

RET 



以来、出る台がさっぱり当たらなくなったでヨ。わしゃ、なんか悪いことでもしたじやろか 


? 


パチンコ老人（愛知) 


■答 

最近はパチンコ屋といっても、半分くらいはスロットマシンが置いてあるよ 
うです。やはり、パチンコが一番面白かったのは、左手で1つずつ玉を入れな 
がら打つ古き時代じゃなかったでしょうか。 

あの頃は、神技のような早打ちができる名人がいたり、ひとつぶの玉を右手 
で入れては右手ではじくヒマつぶしの老人もいました。それに比べると、現代 
はスピードの時代。軍資金も玉もアツという間になくなります。 
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おつと、こんな話は18禁の方には関係のないことですね。あくまでも、問題 
はブログラムの内容に ついて です。 

修正したプログラムは、オリジナルより1バイト少なくなり、実行に要する 
時間も1ループにつき3ステート少なくなっています。もちろん、命令を実行 
する過程はまったく同じです。しかし、このプログラムは実行過程よりも、実 
行結果に意味があるプログラムなのです。最後のフラグまで見落としてはなり 
ません。 DJNZ 命令はフラグ変化をしないのが特徴です。 

まず、このプログラムの目的ですが、 HL レジスタで示されるアドレスの中身 
を、 M 大で B 回（アドレスを+1しながら）チヱ ック し、その結果をフラグで 

返すことです0オリジナルのフラグ結果と、修正後の結果を比較して みま しょ 
9〇 


( HL ) を最大 B 回チ x ック 

オリジナル 

修正後 

( H ) = 〇〜4 

CF =1 ZF = 0 

CF =1 ZF =0 

( HL ) = 5〜29 

CF =0 ZF =0 

CF =0 ZF =0 

( HL ) =すべて30以上 

CF =1 ZF =1 

CF =1 ZF = 不定 


B 回のチェックの間に （ IIL )= 〇〜29となれば、フラグ結果はどちらも同じ 

です。しかし、最後まで （ HL ) が30以上の値であった場合には、修正ブログ 

ラムではゼロフラグが不定です。不定といっても、セロフラグが1になるのは 

敁後の ( IIL ) の値が30の時だけで、それ以外はすべて ゼロ フラグは立ち ませ 
ん〇 

したがって、せっかく敁後まで30以上であっても、 RET 時には途中に〇〜4 
があったというフラグ結果になってしまうわけです。これでは、この プロ グラ 
ムの価値も不定になってしまうはずです。 

今回は、フラグ変化がないという理由で DJNZ 命令が使用できませんでした 
が、その逆にフラグ変化がないという特徴を利用することもあります。 DJNZ 
命令は単にループに便利というだけでなく、このような使い分けをすることも 
活用したいポイントなのです。 
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なお、 このサブルーチンをコールしたほうの プログラムでは、結果による条 
件分岐の順序を間違えないように気をつけてください。先ほどのフラグ結果表 
を見ながら、どの条件で分岐させるべきが確認しておきましょう。 

それにしても、なんだか危ないブログラムです。でも、もし実在するなら、 
ターカク売れそうだでヨ……。 



(>9 

















P / v フラグとは 

ハロー!!ここはニューヨークです。父の仕事の都合で、半年前にこ 
ちらへ家族そろって引っ越してきました。広大な国アメリカは、なん 
でもビッグです。アイスクリームもステーキも日本の倍はあります。 

家では日本語、外では英語、そして夜はマシン語の毎日です。いま、 
フラグの利用法について色々研究しています。ところで、よく内容の 
わからないフラグがあります。それはパリティフラグです。 

まだ、実際にこのフラグを利用する機会がありませんが、命令と変化の内容が頭の中で整理 
できません。当然、具体的な利用方法も思い浮かびません。おまけに、 ニモニッ ク表のパリティ 
フラグの項には 「 IFF 」 なんていう不可解な文字もあります。 

英語で 「 IFJ ならわかります。「もしも〜なら」の「もしも」です。もしも、この意味が英 
語の「もしも」なら、いったい何が「もしも」なのか教えてください。 

電話で闉こうとも思いましたが、もしももしもしのもしともしものもしもが混乱するとわ 
からなくなるので、電話はやめました。よろしく！！ 



現地名•早口卜厶 （ニューヨーク) 


■答 

電話じゃなくても、もう十分に混乱してます。もしもしもも……。読むだけ 
でメゲそうです。もしも電話だったら「もしもし」の「もし」と「もしも」の 
「もしも」を理解するだけで…… アッ、 読めたようです。 

では、最初にこの 「 IFF 」 から解決しておきましょう。これが未解決だと、敁 
後まで頭から「もしも」が離れませんから。 

IFF = Interrupt Flip-Flops 

これは「もしも」ではなく、割込みのオン/オフの状態を示すものです。つ 
まり、割込み禁止の状態なら 「IFF = 0」、割込み許可の状態なら 「IFF =1」 
となります。ニモニック表で 「 IFF 」 となっているのは、 「 LDA , I 」 t「LD A , 
R 」の2つの命令です。この命令を実行するとパリティフラグは次のように変化 
します。 

DI (割込み禁止）時：パリティフラグ= 〇 

EI (割込み許可）時： パリティフラグ : zz i 


7〇 





ただし、このような使い方が必要になることは、ほとんどありません。パリ 
ティフラグは ニモニッ ク表で P / V フラグと書かれているように、正式にはパリ 
ティ/オーバーフロー • フラグと呼ばれ、命令により次のように異なった反応 
を示します。 . 

(1) パリティフラグとしての役目 （ P / V の項目が P となっている命令） 

おもに論理演算やシフト命令で反応し、データ中のセットされている 
ビットの総数が偶数の場合1(奇数の場合 0) となります。例えば 、 AND 
命令の実行後アキュムレータの値が001111 11 B (= 3 F „) となれば、セッ 
卜されているビット数は6ケですからパリティフラグ=1となります。 

⑵オーバーフローフラグとしての役目 （ P / V の項目が0となっている命令） 
おもに加減算命令で反応し、補数が限界を超えた時に1となります。補 
数とは、レジスタ値の最上位ビットを十/一の符号とするものです（問そ 
の1参照)。したがって、補数が限界を超えるということは、最上位ビット 
の値が反転することです。 

例えば、8ビットの計算を例にとると125に4を加えると129となり、 
ビット7の値は0から1に変化し ます。 つまり、補数表現では 一 127とな 
り、+/— の符号を考えた計算の限界を超えるわけです。このような時に、 
オーバー フローフラグ =1となる のです。 

このほかにも 「 LDI 」 や 「 CPIJ 命令などを実行した後、 BC レジスタの値が 
0以外の時にも P / V フラグ=1 (0 の時には P / V フラグ= 0 ) となります。 

結局、 P / V フラグというのは命令によって内容の違った反応を示す、いわば 
フラグの便利屋さんです。しかし、利用する場合の命令は、その意味にかかわ 
らず次のように統一されています。 

P/V フラグ= 0 …… 「JP PO , xxxx 」 「CALL PO ， xxxx」「RET PO 」 

P/V フラグ =1 …… fJP PE ， xxxx」「CALL PE ， xxxx」「RET PE 」 


アメリカにも日本人向けの本屋さんはたくさんあるし、日本の書籍は数日遅 
れで手に入るそうですから、もう「もしも」で「もしもし」する必要はなくなっ 
たでしょう。 
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::薦囊的な贿 a 数:；纖 

こちらは、第99次南極観測越冬隊の親衛隊です。越冬隊貝に憧れ 
て、秘かに南極までやって来ました。昼間はペンギンと戯れ、夜は全 
貝一丸となってパソコンの前に座っています。その目的は、 いつ 襲っ 
てくるかわからないブリザードを予測するブログラムを組むことで 
す。 

しかし、はっきり苜 って これはゲームみたいなものです。というのは、ブリザードを色々と 
検討した結果、ほとんど乱数に近い出現という結論に達したからです。それはそれでいいので 
すが、誰もマシン語で乱数を発生させる方法がわかりません。 

ブリザードに襲われるのは、まったく乱数というわけでもなく、大きな周期もあるようで 
す。だから、あまり完全無欠の乱数というのもマズイのです。こんな都合のいい乱数なんてあ 
るでしようか。 

アツ、ブリザードに襲われて停電になってしまった……。 

ペンギン野郎（南極） 

|答 

南極からの質問……？ 

どうやら、この質問はモールス信号で送られてきたようです。そもそも、こ 
のモールス信号というのは、わからない人には ピツピツ ピの乱数にしか聞こえ 
ません。それでも困った時のために、 SOS (卜卜ト ツーツーツー トト ト）だ 
けは覚えておくようにと、子供のころよく言われたものです。 

例えば、船倉に閉じ込められた時とか、秘密基地に誘拐された時とか……。 
でも、そんな経験があるはずもなく、いまだに使ったことはありません。 

さて、おたずねの乱数ですが、一般的にコンピュータで乱数といっているの 
は、本物の乱数ではなく疑似乱数です。これは簡単な計算式によって、一定の 
周期でランダムに近い数値が得られるようにしたものをいいます。 

なんだ ニ セ モノカゝ 、などと バカに してはいけません。 ゲームな どには、かえっ 
てこのほうが適しているのです。というのは、本物の乱数には0が何回も連続 
するとか、しばらくの間は10以下ばかりとか、本物がゆえに乱数として好まし 
くない現象が起きることがあるからです。 

その点、疑似乱数はいかにも乱数という感じでバラついてくれます。ここに 
紹介する乱数は、コールするたびに A レジスタにランダムな数値を入れて返す 
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といつ、もっとも簡単で一般的な乱数ルーチンです。 


プログラムの内容は、前回の値を5倍し、さらに1を加えたものを新乱数と 
するというものです。最後に加える数値（ここでは 1) は、0以外であれば何 
でも構いません。この乱数がどのようにルーブするのかを示しますので、乱れ 
方の特徴を確認してください。 


また、最後に1を加えないとどうなるか、あるいは5倍ではなく 2倍とか3 
倍にして1を加えたらどうなるか……。プログラムを少し変更するだけでテス 
卜できますから、ぜひ試してみてください。乱数の乱れを改めて認識できるで 
しょう。 

でも、こんなんで本当にブリザードの予測ができるのかどうか、少しばかり 
疑問が残ってしまいます。 


RND 1 : LD 

A ,0 

LD 

E,A 

ADD 

A,A 

ADD 

A,A 

ADD 

A,E 1 

INC 

A 

LD 

( RND 1 + 1 ),A 

RET 



0000000000000000 
FEDCBA 9876543210 

3333333333333333 

69CF258BE147AD03 



7E5C3A18F6D4B290 

5555555555555555 

E94FA50B61C72D83 

4444444444444444 

9876543210 FEDCBA 

)7:777777777777777 
BE147AD0369CF258 

EEEEEEEEEEEEEEEE 

B2907E5C3A18F6D4 

99(99999999999999 
50B61C72D83E94FA 

8888888888888888 

76543210 FEDCBA98 

BBBBBBBBBBBBBBBB 

47AD0369CF258BE1 

2^22222222222222 

4B2907E5C3A18F6D 

DQDDDDDDDDDDDDDD 

0D61C72D83E94FA5 

CCCCCCCCCCCCCCCC 
9876543210 FEDCBA 

FFFFFFFFFFFFFFFF 
147AD 0369 CF258BE 

6666666666666666 

07E5C3A18F6D4B29 
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_用的な鼸 itsa 

一生のうち、一度でいいから宝くじの一等に当たってみたい。そう 
思って20年。もう何枚のハズレくじを買ったことでしょう。当たるの 
はいつも末等ばかり……。 

末等だけは、10枚買えばイヤでも当たります。だから、あれはハズ 
レと一緒です。しかし、ここまでハズレが連統したら、当たる時は一 
等に違いないはず。それが、唯一の心の支えです。やっぱり私は楽天的でしょうか。 

でも、最近は子供も大きくなってきたし、少しはシビアになろうと思い、宝くじの番号を指 
定して購入するようにしました。もちろん、いつも思い通りの番号が買えるとは限りません。 
しかし、少なくとも運は向上すると思うのです。ただ、今のところ結果は同じでハズレばかり 
です。 

そこで、今度は購入番号をパソコンの乱数に選ばせようと思います。乱数で各桁ごとの番号 
を決めたいのですが、私の知っている乱数 （5 倍して1を足す）では、すぐループしてしまい 
面白味がありません。 

もう少し変化に富んだ乱数はできないでしょうか。 

宝塚九二男（兵庫） 

■答 

宝くじ。本当に当ててみたいものです。よく「運がよければ……」といいま 
すが、いったいどの程度の運なのでしょうか。 

一等の出る確率を計算すると、宝くじによっても、また一等赏金の額によっ 
ても違いますが、だいたい百万分の一とか、二百万分の一といった感じが多い 
ようです。いずれにしても、桁が多すぎてピンと来ない数字です。 

では、直径1ミリの砂つぶをすき間なく1，000メートル並べ、その中の1つぶ 
だけが一等になるといったらどうでしょう。……書いてみて、確率の低さに驚 
いたのは、他ならぬ自分でした。 

さて、例の5倍して1を足すという乱数（問その 30) ですが、コールするた 
びに偶数/奇数が入れ替わり、下位4ビットは16回で一巡してしまいます。全 
体的にも256回で元の値にもどりますから、利用できるのはせいぜい簡単な 
ゲーム程度と考えたほうがよさそうです。 

そこで、宝くじに応用できるような複雑な乱数の登場です。といっても、基 
本的な考え方は5倍して1を足す方法と同じです。ただ、計算式を16ビットで 


その31 
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行い、その上位8ビットを乱数に取るので、その値からは次回の乱数を予測で 
きなくなります。 


RND2 : LD 

HL,0 ! 

LD 

D,H 

LD 

E,L 

ADD 

H し , HL 

ADD 

H しし 

ADD 

HL,DE 

LD 

DE,3711H 

ADD 

HL,DE 

LD 

(RND2+1),HL 

LD 

A,H 

RET 

1_ 



M 後に加える3711„は特に意味のない数値であり、0000„以外であればいく 
つでも構いません。しかし、数値の変化を早めるためには、少なくとも（)1〇〇„以 
上は入れたほうがいいでしょう。また、この値により乱数に連続性などの性格 
を付けることができます。色々な値を入れてテストしてみてください。 

ただし、単純計算による乱数は必ずループします。また、一巡する間に出る 
数値は、順序が変わってもすべて同じ回数です。例えば、3711„の代わりに 
0001„とすると、0が連続することが多くなりますが、鉍終的には他の数と同じ 
割合でしか現れません。 

ちなみに、この乱数は一巡するのに10000„ (65536) 回かかります。したがっ 
て、次の値や偶数/奇数を予測することは、計算しない限りまず不可能です。 
参考までに、今回のプログラムによる最初の100„ (256) 回の乱数を示しておき 
ます（次頁)。 

もし、当たりそうな乱数が得られるようだったら、ぜひ教えてもらいたいも 
のです。これは本気です……。 
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A9C3ED 07214 B658F 
El 84370 CD2B8A0A8 

D3DCE4ECF5FDF60E 
B9D9C 781197 DAFBD 

E2A77C4116EABF84 
41B4B 046640 B4B15 

EBD3CAC2B9B0A89F 
9240429 A 36286 EF9 

7D757D757D757D64 
4F3F3F 416397 DB21 

016FCE3C9A 0967 C5 
DC6BC 80209 ED8EFC 

E 29447 FAAD40F3A6 
180B878C2A 52025 B 

78D 52380 DE2B88D6 
CA5E4775F7DFFC6E 

C9AF856B 41270 DE3 
143E6AA6F452C132 

DAAE6237FBB 08448 
269BDEEDB963E93C 

13A 435 C647D869F9 
3A7B55B8B 43957 FE 

E 2 A 5590 cc 07336 EA 
FEDE038D4D61DA88 

E2A66A1DD195591D - 
82B5F94E950C841D 

B2DCF 6214 B6690BA 
A646B40F16FBAD2B 

AB1A89F857C635A3 

43D0E685CD8EE8CB 

7D8790B9C3DCF60F 
3CBF87A 315 DBE757 
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M 似乱数利用の基礎 

おいでませ 一、 山 口へ。 山口といえば長州。長州といえば、維新の 
嵐。革命戦士の心意気でマシン語を制霸するゾ!！ 

……と意気込んでみたけど、いま挫折しかかっています。ぼくはプ 
ロレスラーと精神構造が一体化している高1です。小さい時から 
バー- c ルで鍛えてきただけあって自慢の胸囲は 13 o C m を誇ります。 


挫折の原因は単純です。なにかにつけて乱数乱数といいますが、ぼくには乱数の意味はわ 
かつても、それをどう利用するかがわからないのです。例えば、ゲームなどでは敵の動きを乱 

数で決めることがあるそうですが、動きは 8 方向程度なのに、乱数では〇〜 255 までの数がで 
きてしまいます。 


例えば、1〜8の乱数がほしければ、その数が出るまで乱数ルーチンをコールしろということ 
でしようか0 


春 

• 

• 

CRND 1 : CALL 

RND 1 

! cp 

8 

JR 

NCXRND 1 

INC 

• 

# 

• 

春 

A 


— IRND1 」 は問（その 30) 
の乱数ルーチン 

—A= 1 〜 8 の乱数 


あるいは、もつと特殊な乱数ルーチンがあるのですか。どうか、この挫折から立ち直れるよ 
う、カツを入れてください。 

男一匹長州軍団（山口） 

■答 

喝（かつ）！！ 

これで、挫折から立ち直れるなら何度でもカツを入れてあげましょう。喝!! 
なに、まだ挫折から立ち直れない……。喝!！ 

エーッ、まだ……。よく考えたら、こんなことをするより、先へ進んだほう 
が早く立ち直れそうですね。では、乱数の利用法へと進むことにしましょう。 

乱数は、作るよりどう利用するかでその価値が決まります。料理の味がコッ 
クさんの腕前で変わるように、乱数もうまく活用することが大切なのです。ど 
んなにいい乱数ルーチンでも、利用方法が悪ければ結果的に悪い乱数になって 
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しまいます。 

例えば、5倍して1を足すという簡単な乱数（問その 30) を用い、確率1/2 
の割合で条件分岐させるとします。 


@ 



⑬ 


CALL RND 1 


CALL RND 1 

RRCA 


RLCA 

JR C , PR 0 G 1 

% 


JR C,PROGl 

PROGO : : 

• 


PROGO : : 

• 


® も⑧もブログラム的には似たようなものです。しかし、得られる結果はまっ 
たく違います。 ® のほうは、キチンと1回おきに分かれてしまい、乱数を取っ 
た意味がなくなっています。一方、⑬のほうはある程度予測不可能な分岐をし 
てくれます。 

もちろん、どちらも256回実行すれば分岐割合は同じですが、乱数ルーチン 
は何もこのプログラムだけで利用されているとは限りません。下手をすると® 
のブログラムは同じ場所へのジャンプしかしなくなる可能性だってあるわけで 
す。 

したがって、簡単な乱数を利用する時には、その乱数の性格も頭に入れて利 
用することが大切です。 「 RND 2」 （問その 31) を利用すればそういう心配は不要 
ですが、 「 RND 1」 には 「 RND 2」 よりブログラムが短い上、速度も速いという 
特徴があるのです。一概に役に立たないというのではなく、場合による使い分 
けをしたいものです。 

では、質問にあるような数値を乱数で作ってみましょう。乱数ルーチンは 
[ RND 2」 を使用するものとします。これは、 「 RND 1」 では下位4ビットが16回 
でループしてしまい、今回の応用には適さないからです。 


(1) 乱数から〇〜7の数を作る 


CALL 

RND 2 

AND 

000001 1 IB 

• 

• 

• 

争 
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(2) 乱数で1〜8の数を作る 


1 CALL 

RND 2 

AND 

000001 11 B 

INC 

A 1 


• 

• 

• 


要するに、乱数ルーチンで得た数値をそのままの姿で利用するか、それとも 
加工して好みの数値にするか、それを決めるのは「あなた」というわけです。 
知ってしまえば簡単なものですね。 

挫折から復活の呪文へ……喝（かつ）！！ 
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嫌赌数の応用 


わたくし生まれも育ちも葛飾柴又です。 

帝釈天で生湯をつかり、姓は車、名は寅三郎。 

人呼んで r フーセンの寅 j と発します。以後よろしうおたの申しま 
す。 

わたくしの職業は、全国津々浦々に出向き、立地条件のよい場所を 
見つけては風船の直営店を開くことであります。そのためには、全国の祭り、縁日、運動会、 
バザーにイベント、歩行者天国。あらゆる催し物の場所と日時を、正確に記憶しておくことが 
大切なのでございます。 


カバンひとつで長期の出張、つらいけれども気楽な身です。唯一の不安は、行き先を間違え 
て商売をし損なうことです。しかし、いまでは一枚のフロッピィディスクがあるので安心で 
す。そこには、柴又のオイちゃんの家でインプットした、全国の催し物の情報が入っておりま 
す。こう見えても、プログラムは自前、それもマシン語です。 

お祭り好きな日本では、いつもどこかで祭りが開かれています。客足の予想なども、そのプ 
ログラムで知ることができます。しかし、欠点はいつも同じ結果しか表示してくれないことで 

to 


そこで、乱数を利用して上下に変化をつけたいと思うのですが、乱数をどのように活用した 
らいいものか、悩んでおります。どうかよろしくご教授くださいませ。 

ちなみに、ブログラムはデバートで実行させております。 

旅先にて……風船のトラ（福井） 


■答 

地方を巡業中のフーセンの寅さんも、コンピュータで行動を管理していたの 
ですか。気ままな商売に見えても、結構苦労していたんですね ェ。 

どのようなプログラムで客足の予想までしているのか、これだけではわから 
ないのが残念ですが、とりあえず、+/—を含んだ乱数値を得るのが目的のよう 
です。もっとも、問（その 1) にあるように、+/—というのは使う側の勝手で 
すから、何もしなくてもすでに 一 128〜+127の数値として扱うことはできる 
わけです。 

しかし、これでは上下の幅が広すぎますね。計算をしたとたんに8ビットの 

限界を超えて、足したつもりが少なくなってしまう恐れもあります。 

(例） 

150 (元の数値）+120 (変動幅）=14 —8 ビットの限界を超えたため 


So 




中には、客足の予想をするのに、8ビットではそもそも無理があると感じる 
人もいるでしょう。しかし、数値には単位というものがあります。例えば、100 
という値でも後ろに「00」を付ければ10000を表現したことになるように、単 
位次第でいくらでも表現できる幅はふくらむのです。 

ゲームのスコアなど、内部では1点単位、画面では飾りの「00」を付けて100 
点。そんな見え見えのゴマカシもあるほどです。ということで、 「 RND 2」 （問そ 
の 31) を利用して、上下幅のある数値を作ってみます。 


(1) 一 7〜+ 7の数を作る 


CALL 

RND 2 

AND 

000011 11 B 

RRCA 


JR 

NC,NONEG 

NEG 

• 

NONEG : 

_ 

• 

• 

• 


[AND 100001 11BJ としただけでは 
一 7〜+ 7 とはならないことに注意 


(2) 30%の確率で雨が降る。雨ならば 一 7 〜一 4の数値を、雨でなければ 
+ 4〜+7の数値を作る （256/100= 1%と考える） 


CALL 

RND 2 

AND 

000000 11 B 

OR 

000001 00 B 

LD 

B,A 

CALL 

RND 2 

CP 

77 

LD 

A,B 

JR 

NEG 

NC.NRAIN 


NRAIN : 


— 「ADD A.4 」 でもよい 
— B=4 〜 7 の乱数 

—30% の確率 （77 = 30X256/100) 


これらの例のように AND 命令がいつもうまく使えるとは限りませんが、加 
減算をして調整したり、確率による条件分岐を組み合わせることで、たいてい 
は条件に見合つた乱数値を作り出すことができます。 
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どうやつても条件からはみ出してしまう数値が出る場合は、条件に見合うま 
で同じ処理を繰り返すか、確率の狂いは無視して適当な数値に決めてしまうこ 
とです。いい加減でいいのが乱数なのです。 

タコはイボイボ、ニワトリゃはだし。イモムシゃ19で嫁に行く。乱数いろい 
ろ、よく見りや数字。足して引いてりゃ丸くなる . 。 
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122 . . 

問 

•蒙 X 

: 

又 ゞ. ★ # 

51¢供乱数に変化をつける 

その34 

- - - - - - - - - —- -------- 

わたしは女の子ですが、パソコンが大好きです。とくに、面白い 
ゲームがどういうふうにプログラムされているかを考えると、胸が 
ワクワクします。 

ゲームとしては、アクシヨンゲームよりか、ドラクエみたいな RPG 
が大好きで、わたしもいつの日かあんなゲームを作ってみたいナと 


思います。だから、少しはマシン語も勉強しました。 

敵とか出すのって、乱数を使うんでしょ。それくらいは知っています。でも、ゲームでいう 
乱数は疑似乱数のはずです。だから、ゲームをスタートして同じように動けば、誰がやっても 
同じ敵が同じ場所に出てくるはずだと思います。 

ところが、ためしにそういう実験を友人とやってみると、ソックリ同じにはなりませんでし 
た。もしかすると、本物の乱数です A . ? 

中3あきな（石川） 

■答 

女の子のパソコンフアンが近ごろ増えてきているらしいですね。これで、パ 
ソコンの未来も明るくなりそうです0 

バソコンの魅力の1つに、市販ソフトとまったく同じものを本体で作ること 
ができるという特徴があります。これは、ブログラムを組まない人にとっては 
無用の長物です。その点、遊ぶ面白さから作る面白さに気が付いた石川のあき 
なちゃんはエライっ!！ 

未知のものを作る時のスリル、そしてブログラムを初めて実行する時の不安 
感。これはもう体感 RPG そのものです。ブラモデルだって、完成してからより、 
作っている時のほうが楽しいし夢があります。 

TV ゲームで遊んでいる子供たちが、そういったバソコンの特徴に気が付い 
た時、パソコンは飛躍的に広がるでしょう。 

さて、この疑似乱数に関する疑問は非常に鋭い点を突いています。おまけに 
実験までしているとは、おそれ入谷の鬼子母神です。おっと、トラさんからの 
質問があったばかりなので、つい口がすべってしまいました。 

しかし、このくらいのことはブログラマーならば対処して当然のことなので 
す。というのは、乱数の初期値を変えるだけで、問題はアツサリと解決してし 
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まうからです。 

では、どのようにして乱数の初期値を変えたらいいでしょうか。乱数の初期 
値に乱数を使うというのでは「卵が先かニヮトリが先か」になってしまいます。 
悩みそうな問題ですが、いくつかの簡単な解決法があります。 

(1) 名前の合計（文字もマシン語上では数値です）を乱数の初期値にする 
これは RPG などではよくやりますが、名前が同じだと合計も同じに 
なってしまいます。しかし、それも名前による一種のゲーム性です。 この 
プログラムでは、文字コードをアスキーコードで表現し、〇を名前のエン 
ドサインにしています。 


NAMAE : DB 
START : LD 
| LD 

STAT 1 : LD 

OR 

JR 

ADD 

, JR 

I INC 

STAT 2 : LD 

INC 

I JR 

STAT 3 : LD 


’アキナ ’，0 

HL,NAMAE 

DE ,0 

A ,( HL ) 

A 

Z , STAT 3 

A,E 

NC , STAT 2 


E,A 

HL 

STAT 1 

( RND 2+1 ),DE 


D 


(2) キー入力のループの中で、 乱数 ルーチンをコールする 

一般に、どんなゲームでも最初にタイトルなどがあり、なにか キーが 押 

されるのを待つようになっています。そのキー入カ チェ ックの ループで 

乱数ルーチンをコールすれば、ゲーム開始時には乱数にズレが生じている 
というわけです。 

(3) R (リフレッシュ）レジスタの値を乱数の初期値とする 
パソコンに使用されている RAM はダイナミック RAM といい、短時間 

でメモリの内容が消えてしまう性格を持っています。そのため、内容が消 
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える前に再びメモリに書き込むという作業を常に行っているのです。その 
カウンタとなっているのが、 R レジスタです。 

リフレッシュは一度に512バイトずつ実行されるので、 R レジスタは7 
ビットで全メモリ空間をカバーしています。これは、内部で自動的に行わ 
れますから、 R レジスタの値は常に変化しています。ただし、+1ずっ変化 
していくので、このまま乱数として使用することは不適当です。 


START : 

-1 

LD A # R 


LD ( RND 2 + 1 ),A 


これだけで、乱数初期値の下位7ビットが不定になります。シンプルイ 
ズベストとするなら、これがベストといえるでしょう。 

あきなちゃんだけでなく、せいこちゃん、きょうこちゃん、のりこちゃん。 
それに、さゆりちゃん、わかこちゃん……。みんなパソコンフアンになればい 
いのに……ネ。 
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興レジスタとは 

あなたは神を信じますか？ 

わたしは神を信じます。わたしはニューギニアにいるドイツ人の 
牧師です。わたしは神の教えを広め、人々の幸せと平和を祈り、貧し 
い者、富める者、病める者、健康な者、すべての人々の心の悩みを救 
うため、ここニューギニアへやって来ました。 

ところで、わたしの友人に変な日本人がいます。彼は、わたしに悩みを解決してくれと言い 
ます。ところが、その悩みとはなんとマシン語についてです。これには、わたしも困ってしま 
います。 

彼の話によると、ある日裏レジスタの存在を知り、これは便利と PUSH / POP の代わりに使 
用したそうです。最初のうちは調子が良かったのですが、そのうち表か裏かワケがわからなく 
なり、プログラムがメチャクチャになったというのです。 

彼は、そのことで悩み、わたしに相談してきました。わたしは人の悩みを解決するのが仕事 
です。わたしはこの手紙を英語で害き、それを彼に日本語に訳してもらいました。 

だから、この手紙はわたしの手紙であっても、害いたのは彼であり、悩んでいるのはわたし 
であっても、悩みは彼のものであり……。なんで、わたしが悩むのか、それがまた悩みとなっ 
て……ナニがどうなっているのか、わからなくなりました。 

オー、神よ。悩めるわたしを救いたまえ。アーメン……。 

悩める牧師（ニューギニア） 

■答 

「あなたは神を信じますか？」 

「信じます。ただし、困ったときだけ」 

……というのが、多くの日本人だそうです。無理もないですネ。生まれた時 
は神社にお宮参り、結婚式は教会で、お葬式はお寺で、そして普段は祈らない 

. 。これが通用するのが日本ですから。 

そんないい加減な信者の一人ですが、いつものお礼に悩める牧師さんを救っ 
てあげたいと思います。 

まず、與レジスタという名称ですが、一応区別するために表/輿、あるいは 
主/副レジスタと言っていますが、実際には同じ土俵で使えないというだけで、 
表とか裏という感覚のものではありません。 

というのは、裏レジスタに対する命令というのは存在しないし、使用する際 
には次のように表と與を交換して使うからです。つまり、交換した時点で、裏 


その35 


86 








が表に、表は舆にと立場が逆転してしまうのです。 


表レジスタ 

交換命令 

•_ ■ -■» _ ■ | 

舆レジスタ 

AF 

EX AF.AF 

AF 

HL . DE.BC 

EXX 



この特徴を利用して、 PUSH / POP の代わりに利用できないことはありませ 
ん。特に、一度に3つのペアレジスタを交換できる EXX 命令は、 PUSH/POP 
に比べ記述が楽な上、メモリの節約、速度のアップにもつながっています。つ 
いつい PUSH / POP の代用で使用したくなりがちです。 

しかし、こういった使い方は、メイン側を表レジスタだけに限定し、割込み 
処理ルーチンでレジスタ退避の代わりに與レジスタを使用する、というように 
明確な環境設定をした場合でないと非常に危険です。 

というのは、 PUSH / POP 代わりに使用すると、ジャンプ先やコール先で 
EXX 命令を勝手に使用することもあり、何度も繰り返しているうちに、どっち 
がどっちかわからなくなってしまうからです。 

したがって、與レジスタをメイン側で使用する場合は、表レジスタの退避と 
して使うのではなく、キチンとした役割を持たせて使うべきです。例えば、次 
の不規則転送プログラムはデータを16バイトごとに読みだし、別のアドレスに 
8バイトごとにストアするというものです。このような場合、與レジスタが非 
常に便利な存在となります。 


LD 

HL,0C000H 

—fe 送データのアドレス 

LD 

DE,16 

—スキップ数 

LD 

B,20 

— 総 fe 送数 

EXX 


( 裏） 

LD 

HL,0E000H 

—転送先アドレス 

LD 

DE,8 

—スキ ッ プ数 

EXX 


( 表） 

LOOP : LD 

A,(HL) 


ADD 

HL,DE 
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EXX 


し D 

( HL),A 

ADD 

HL,DE 

EXX 


DJNZ 

LOOP 

RET 



(輿) 


(表) 


要するに、表は表、輿は輿。それぞれに目的と役割を持たせて使えば いいの 
です0そのためには、奥レジスタを表レジスタの退避用と考えるのではなく、 
独立した別のレジスタとして存在価値を認めることがボイントです。 

これで、悩める牧師さんを救えたとしたら、わたしは神となるのでしょうか。 
オヤ、本当の神の声が聞こえてきました。 

あなたは神ではなく紙。つまり本です、アーメン……。 
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裏レジスタの共用 

ワシは悪魔神官バーボン……。 

つまり、酒の好きなおまえたち人間の酔った時の心を司る神じゃ。 
酒は人の心を気持ちよく狂わせ、理性を失わせる。酒は百薬の長、祝 
い酒、おとそ、おみき……、飲む理由はいくらでもある。 

そこがワシのつけ目 じ ゃ。やがて、ジキルと ハイ ドのように、 まっ 
たく違った人間ができ上がる。それが、おまえたちの裏の心だ。わかるか、心に表も裏もない。 
裏が表になれば、それが表になるのだ。その時こそ、世界がワシのものになる。 

……というのが、ワシが描く理想の世界なのだが、どうも理想と現実は違うような気がす 
る0いつまでたっても、理想の世界にならんのじゃ。 

そこで、ワシは人の心をコンピュータで分析しようと思う。うまい具合いにレジスタにも表 
と裏があるではないか。完全に酔ってしまえば、全部のレジスタを交換してもいいのだが、最 
初のうちは裏レジスタと表レジスタに共通部分が必要なのだ。 

つまり、表で使用していたレジスタの値を、そのまま裏レジスタへ移すにはどうしたらいい 
か、というのが質問じゃ。分析が終わったからといって、ワシの理想通りになるとはかぎらん 
から、安心して質問に答えてくれ。 

天オバーボン（酒乱界） 

■答 

これは、恐ろしい質問です。私が酒飲みなら、不安でとても答えられな いの 

ですが、幸か不幸かわたしは酒が飲めません。だから、平気で質問に答えるこ 
とができます。 

例えば、表にある HL レジスタの値を、輿の HL レジスタに移したいなら、 
次のようにすれば簡単です。 



PUSH 

HL 

EXX 


POP 

HL 


この方法で、何度でも表と輿を共通して使用することができます。もちろん、 
裏から表へ移す時も同じです。また、インデックス•レジスタ （ IX / IY ) は表 
も裏もありませんから、共通のペアレジスタとして常に利用可能です。 
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(例）100 Oh 番地からのデータを80バイトおきに読みだし、300 0 H 番地から連続 
してストアする。同様に、2000„番地からのデータを40バイトおきに読み 
だし、3020 H 番地から連続してストアする。この作業を20„ (32) 回実行 
する。 


LD 

HL, 100 OH 

LD 

DE,80 

EXX 


LD 

HL, 200 OH 

LD 

DE,40 

EXX 


LD 

IX, 300 OH 

LD 

B,20H 

LOOP : LD 

A,(HL) 

LD 

(IX + 0),A 

ADD 

H し , DE 

I EXX 


LD 

A,(HL) 

LD 

(IX + 20H),A 

ADD 

HL,DE 

EXX 


| INC 

IX 

DJNZ 

LOOP 

• 

• 

• 

• 


—スキップパイト数 


—スキップバイト数 

—転送先を示す共用 
のレジスタ • IX 


では、表の B レジスタだけを舆の B レジスタへ移す場合はどうでしよう0 
PUSH/POP で移したのでは、 C レジスタの値も移ってしまいます。 

こういう時は、表と奥に共通して使える A レジスタを利用します。 


LD 

A,B 

EXX 


LD 

B,A 



裏と表は、うまく利用すれば倍の能力を発揮してくれます。酒を飲むと頭が 
さえるという人間もいることを、お忘れなく……悪魔神官バーボン殿。 
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モリを埋める 


佐渡へ一佐渡へ一と、草木もなびィーく〜……。 

と、歌われたのも今は昔のお話です。最近では、佐渡で金が取れた 
ことさえ知らない人がいます。しかし、私はまだまだ佐渡で金は出る 
と信じています。だからこそ、全財産を処分してここへやって来たの 
です。 


私は、自称地質学者。他称:‘ヘンなおじさん J です。マ、多少は他称のほうが当たっている 
かもしれませんが、そんなことはどうでもいいことです。現在、コンピュータにより地層を分 
析し、夢にまで見た金脈を探しています。 

もっとも、コンピュータといっても中古のパソコンです。独学で覚えた マシン 語を使ってい 
ますが、実行速度が遅く、なかなか分析は進みません。ここにあるのはメモリを一定のデータ 
(ここでは 0) で埋めるルーチンです。 


1 XOR 

A 

LD 

HL,xxxx 

LD 

B # 120 

FLOOP : LD 

(HL),A 

1 INC 

HL 1 

DJNZ 

FLOOP 

RET 



何度も使われるので早ければ早いほどいいのです。もし、うまく改善してくれたら、金が出 
た時に1 kg ほどあげましょう。 

名物•金脈おじさん（佐渡島） 


■答 

1 kg の金……ということは、時価に換算すると……ウ 〜ン。 いずれにしても 

大金であることは間違いありません。なんとしても、この質問にだけは答えな 
ければ……。 

まず、質問にあるプログラムが何ステートかかっているか、それを計算して 
みます。その後でどの程度のスピードアップが計れたか、改善したプログラム 
と実際に比較してみましょう。 
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… XOR 


A 

HL,xxxx 

B .120 

( HL),A 

HL 

FLOOP (ループ時) 
FLOOP (通過時） 


4 x 1= 4 

10 X 1=10 
7 x 1= 7 

7 x 120 = 840 

6 x 120 = 720 

13 x 119 =1547 

8 x 1= 8 


TOTAL : 3136 ステー 


改蓄案一1 


21 X 118 + 16 = 2494 


TOTAL : 2535 ステート 


1バイトずつメモリを埋めていたのを、転送命令に置き換えただけですが、 
実行速度は約2割ほどアップしています。これはかなり実用性の高いやり方で 
すが、速度だけを追求するならもっと早くなります。 


改善案一2 


SLOOP 


DI 

LD 

LD 

LD 

LD 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

DJNZ 


(SPPOP + l),SP 

SP,xxxx + 120 

HL,0 

B,12 

HL 

H し 

HL 

H し 

HL 

SLOOP 


20 

10 

10 

7 

11 X 12 =132 

11 X 12 =132 

11 X 12 =132 

11 X 12 =132 

11 X 12 =132 

13 X 11 + 8 =151 


LDLDLDNC)JNDJN 
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SPPOP : LD 

El 

RET 


SP # 0 



10 

4 


TOTAL : 866 ステート 


改善案 一 2 は、 SP (スタックボインタ）の特殊な使用例で、 PUSH 命令でデー 
夕が2バイ トずつメモリに ス トア される特徴を利用した ものです。 ステート数 
を 見る と、 2 バイトずつ 処理され た 効果が明確に出ています。 

ここで注意しなければならないのは、この間は本来の SP の働きができない 
ということです。つまり、通常の PUSII / POP によるレジスタの退避はもとよ 
り、サブルーチンをコールしたり、割込みをかけることもできません。したが っ 
て、いつでも利用できるとは言えませんが、速度的な魅力はかなりのものがあ 
ります0 

さらに、メモリにゆとりがあるなら 、 「PUSH HL 」 を60回連続して記述す 
ればループに消赀していた分 （7+151 = 158 ステート）が不要になり、卜一夕 
ルで708ステートとオリジナルの1/4以下にすることができます。 

これで、金1 kg が私のものに……なるわけないでしょうね。 



93 





ゲータ 


わが輩は、あの有名な‘ねずみ小僧次郎吉’の子孫にあたる者だ。 
もっとも、おまえらだってその子孫の一人かもしれないがな。なにし 
ろ、ご先祖様の子孫は全国にネズミ算式に増えているから、今では誰 
が子孫かわからなくなってしまったのだ。 

だが、わが輩こそ本家本元家元元祖、ただ一人‘ねずみ小僧’を名乗 
れる資格のある子孫なのだ。なぜかって？ 映画で見たご先祖様のご尊顔とソックリだから 
だ。どうだ、まいっただろう。 

ご先祖様は、お金をアルところからナイところへ移動していたが、わが輩が移動するのはお 
金ではない。メモリにあるデータを、アルところからナイところへ移動しようというのだ。わ 
が輩のブログラムを見てくれ。 


LD 

B,10 

MOVEL : LD 

A.(HL) 

1 LD 

(DE),A 

INC 

H し 

INC 

DE 

DJNZ 

MOVEL 

• 

• 

• 

• 


ご先祖様は、日本一のスピードでお金を移動した。わが輩のブログラムは、その子孫として 
恥ずかしくないものかどうか、コソッと教えてもらいたい。 

根津見狐造（住所不定） 

■答 

ねずみはネズミ算式に増えるといいますが、昔も今もねずみの数は余り変わ 
らないような気がします。もし、大昔から計算通りに増えていたら、今ごろは 
世界中がねずみだらけになっていたはずですが、いったいどうなってしまった 
のでしょう。実に不思議なネズミ算の実体です。 

さて、このプログラムではちょっとばかりご先祖様には恥ずかしいようです。 
ループ命令まで入れると、1バイト転送するのに39ステートもかかっている上、 
プログラムには速度を追求した形跡がまったくありません。せめて、次のよう 
にするべきです。 
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LD 

BC,10 

LDIR 

し — ■ .1 



これならば、1バイトにつき21ステート（最後の1バイトは16ステート）で 

す。約半分になっていますが、思い切ってメモリを消费すれば、さらに高速化 
できます。 


LDI —16 ステート 

| LDI 
LDI 
LDI 
LDI 
LDI 
LDI 
LDI 
LDI 
LDI 


このように、ループを省いてしまうというのは高速化の常とう手段です。 
「 LDIK 」 そのものは1 つの 命令ですが、内容はループを含んだ転送命令ですか 
ら、ループになる時は余分に時間がかかってしまうのです。したがって、本当 
に高速化が必要な場合には、この命令を平然と50個でも100個でも並べること 
があります。 

また、 [ LDI 」 や [ LDD 」 を連続させる場合、最初に 「 LI ) C ,0 FFH 」 として 
おくと255回の連続までは B レジスタの値が変化しないので、 B レジスタを別 
のカウンタなどに利用することが可能です。 「 LDIR 」 や 「 LDDR 」 命令では、 
BC レジスタが0になるまでループしてしまうので、 B レジスタを他の目的に 
使用することはできません。こういった特徴も覚えておく価値があります。 

では、ご先祖様に負けないよう頑張ってください。 
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7 一夕高速転送 

わたしは女の子よ。でも、ちょつと普通の子じゃないの。あまり大 
きな声じゃ言えないけど、ド•口 •ポ•ウなの。ア、誤解しないでね。 
悪人じゃないんだから。 

わたしのこと、世間では「怪盗ルビィの指輪」つて呼んでいるみた 
いだけど、普通の人は知らないと思うわ。だって、それは泥棒さんた 


ちの呼び名ですもん。 

わたしのお仕事は、泥棒から盗まれたモノを盗り返して持ち主にこっそり返すこと。だか 
ら、泥棒さんたちから見れば、わたしが泥棒になるの。もちろん、相手が相手だけにお仕事は 
楽じやないわよ。なにしろ相手もプロだから手も足も結構すばやいの。だから、それに負けた 
らオシマイね。 

一番必要なのが頭のすばやさ。パソコンでプログラムを組むときも、高速化は常に考えてい 
るわ。データの移動に 「 LDIJ や 「 LDDJ を連続して害くのなんか当然よね。 

でも、あの命令ってどちらにしても一方通行でしょ。つまり、 HL が十なら DE も +、 HL が一 
なら DE も 一。 わたしがしたいのは、 HL が+で DE が一という転送なの。ここにあるのじゃ平 


凡よね。 


1 LD 

H し, DATA 1 

LD 

DE,RUBI 1 

1 し〇 

B ,20 

XLOOP : LD 

A ,( HL ) 

LD 

( DE) # A 

INC 

HL ! 

DEC 

DE 

DJNZ 

XLOOP 

RET 



やつばりこれしかないかしら。でも、こんなんじゃ泥櫸さんのレベルと一緒よね。きっと、 
なにかいい方法がありそうな気がするんだけど……。教えて!！ 

怪盗ルビィの指輪ちゃん（広島） 

|答 

なんか、こうフラフラッと教えたくなるようなお手紙です。きっと、相手の 
泥棒もすばやさを忘れて、っいボーッとしている間に盗り返されてしまうんで 
は . 〇 
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しかし、プログラムにまで高速性を追求しているとは、まさに本物のプロと 
いった感じです。でも、本当に女の子なんでしょうか。もしかすると、これも 
敵を欺くための手段かもしれません。 

さて、このブログラムを高速化するには、ちょっと頭をヒネらなければいけ 
ません。というのは、常識的に考えればこれ以外にプログラムを組む方法がな 
いからです。というわけで、頭をヒネった結果が次のようなプログラムです。 



DI 



LD 

( SPP 0 P + 1 ),SP 


LD 

SP , DATA 1 


LD 

HL,RUBI 1 


LD 

B ,10 

XL 00 P : 

POP 

DE 


LD 

( HL),E 


DEC 

HL 


LD 

( HL),D 


DEC 

HL 


DJNZ 

XLOOP 

SPP 0 P : 

LD 

SP ,0 


El 



RET 



—10 ステート 

— 7ステート 

— 6ステート 

— 7ステート 

— 6ステート 


プログラムの 特徴 としては、 POP 命令でデータを一度に2バイ ト ずつ読みだ 
していることです。そのため、2バイ トを 転送するのに36 ステートで 済んでい 
ます。 質問にあった方法では、 ループせ ずに2バイ トを 転送したとしても 
52 (26 X 2) ステートかかります。 

つまり、約3割のスピードアップが実現したわけです。一方、この間は SP を 
転送するデータアドレスとして使用していますから、当然のことながらレジス 
夕を退避したりサブルーチンをコールしたりすることはできません。もちろん、 
割込みも禁止しておかなければなりません。 

言ってみれば、これが高速化の代槪というわけですが、データが多くなれば 
なるほどこの効果は絶大なものとなるでしょう。また、この転送部分をループ 
を使わずに連記すれば、ループによる無駄が省けさらに高速になります。 

せっかくの高速化テクニックですが、こうして本になると泥棒さんにも見ら 
れてしまうのでは……？ 
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• • • • 

バイトの加減算 

メンソーレ。ぼくはパソコンが趣味の剣道部員です。得意技は、正 
眼からの銳いメンです。かけ声は、もちろん「ソーレ!!」です。 

ところで、16ビットのレジスタでは〇〜 65535(0 〜 FFFF „) までしか 
計算できません。いまどき、子供の貯金だってそれ以上です。ただし、 
ぼくの場合はパソコンを買ったばかりなので、それ以下ですけど 


でも、ロールプレイングゲームなんかをすると、経験値やゴールドはどんどん上がっていき 
ます。もちろん、どこかに上限はあるでしょうけど、ぼくにはどうやっているのかわかりませ 

ん〇 

もしかすると、秘密のレジスタでもあるのでしょうか。教えてくれたら、お礼に元気が出る 
•ハブのエキス’を差し上げましょう。 

青い珊瑚礁 （沖 繩） 

■答 

青い海、澄んだ空、まぶしく輝く太陽。そんな沖縄で見た「ハブとマングー 
スの決闘」は忘れられません。あの時、一匹目のマングースは無残にもハブの 
毒牙にやられてしまったのです。勝っても負けても、勝負は一瞬で終わりでし 
た……〇 

さて、問題の16ビット以上の計算方法に ついて ですが、もちろん秘密のレジ 
スタなどあるわけがありません。レジスタがダメなら、頼れるのはメモリだけ 
です0 メモリなら何バイト使おうと自由ですからね。例えば、メモリを3バイ 
卜使えば、表現できる限界は一挙に〇〜16777215と大幅アップします。 

ただし、当然のことながら3バイトを一挙に加減舞:できる命令などありませ 
ん。したがって、すべてブログラムで用意することになります。では、 3 バイ 
卜使用した数値どうしの加算と減算のプログラムを組んでみましょう。それぞ 
れの数値はアドレスの若いほうを上位桁とし、計算結果はメモリ （ KEKKA か 
らの3バイト）に入ります 



DATAO 

+ DATA1 


DATAO 

一 DATA1 

1 DATA 0 : 
DATA 1 : 

DB 

DB 

1 FH ,20 H ,5 AH 

13 H ,50 H ,88 H 

DATAO : 

DATA 1 : 

DB 

DB 

1 FH ,20 H ,5 AH 

13 H ,50 H ,88 H 
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KEKKA : 

DB 

0,0,0 


KEKKA : 

DB 

0,0,0 

ADD 01 : 

LD 

DE , DATA 0+2 


SUB 01 : 

し D 

DE , DATA 0+2 


LD 

HL , DATAl +2 



LD 

HL,DATAl + 2 


LD 

1 X,KEKKA + 2 



LD 

IX,KEKKA + 2 


OR 

A 



OR 

A 


LD 

B ,3 



LD 

B ,3 

ADDLP : 

LD 

A ,( DE ) 


SUB し P : 

し D 

A ,( DE ) 


ADC 

A バ HL ) 



SBC 

A ,( HL ) 


LD 

(1 X + 0 ),A 



し D 

(IX + 0 ),A 


DEC 

DE 



DEC 

DE 


DEC 

H し 



DEC 

HL 


DEC 

IX 



DEC 

IX 


DJNZ 

ADDLP 



DJNZ 

SUBLP 


RET 


4 


RET 



—B 
= 桁数 


どちらのブログラムにおいても、重要なキーポイントになっているのはキャ 
リーフラグです。また、16ビットの DEC 命令や DJNZ 命令ではフラグが変化し 
ないという特徴が、このプログラムを成立させています。 

これらのプログラムを実用化する場合、 HL / DE レジスタを引数としたサブ 
ルーチンとすれば、各種の3バイトデータを計算させることができます。また、 
減算ルーチンは CP 命令としての機能も兼ね備えていますから、このルーチン 
をコールしたあとで、ゼロフラグやキャリーフラグによる条件分岐ができます。 

桁数はメモリの許す限り （ B レジスタのカウントできる範囲ですが）增やす 
ことが可能です。もっとも、それを利用する人間が何桁もの十六進数を数値と 
して理解できるかどうかは別問題ですが……。 
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六進数を十進数に 


十数年前' 私は海外で番を張っていました。……というと、おそろ 
しい話に聞こえるでしよう。でも、これは本当の話です。 

私は、ケンカも弱く嫌いです。でも、旅行は大好きです。 ユース ホ 
ステルでは、よく何連泊もしたものです。 

ある時、連泊が1ケ月以上になりました。すると、 いつの 間に か 副 
番長の肩害きが付きました。やがて番長が日本へもどることになり、なんと私が番長へ昇格し 
たのです。そこでは、日本人の最長連泊者を番長とする習わしだったのです。 


いま' いい年してパソコンに凝つています。マシン語でも〇〜9の数字を画面に表示するこ 
とができるようになりました。それは、 A レジスタに入れた〇〜9の値を画面に表示するとい 
う単純なルーチンです。 


しかし、マシン語上で扱う数値は十六進法です。これを十進法に変換し、一桁ずつ A レジス 
夕に入れられなければ、私のルーチンは役に立ちません。 

どうするべきでしようか。それができないことには、仕事も手につきません。すでに自室へ 
15連泊もしています。もう、番長は結構だ……!! 

番長ポロ屋敷（宮城） 


■答 

知っています、その話。スペインのマドリッドのユースでしょ。あそこでは 
日本人の番長が代々 r 火縄式ライター」を安く売ってくれるというので、私も 
ノコノコと出かけて行ったことがあります。大きな h の丸を掲げたべッドの前 
で、弱そうな番長さんがそれを売ってくれましたっけ。 

……もう20年近く前の話です。まだ、伝統の番長さんはいるのでしょうか。 
どなたか最新情報を教えてください。 

さて、十六進数を十進数に直すという作業は、人間とコンピュータとの間を 
結ぶ重要な仕事です。これがなければ、多くのコンピュータはタグの箱に逆も 
どりです。そうならないように、ブログラマーはそのインターフェイスの役目 
を果たさなければなりません。 

とりあえず、 IIL レジスタにある十六進数を十進数に変換し、一桁ずつメモリ 
に入れるというブログラムを組んでみます。 
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MEMRY : 

DB 

0,0,0,0,0 


LD 

HL,0FFFFH 

HEXDC : 

LD 

DE,MEMRY 


LD 

BC, 10000 


CALL 

WARIS 


LD 

BC, 1000 


CALL 

WARIS 


LD 

BC, 100 


CALL 

WARIS 


LD 

BC,10 


CALL 

WARIS 


LD 

A,L 


LD 

(DE),A 


RET 


WARIS : 

XOR 

A 

WARI1 : 

SBC 

HL,BC 


JR 

C,WARI2 


INC 

A 


JR 

WARI1 

WARI2 : 

ADD 

HL,BC 


LD 

(DE),A 


INC 

DE ； 


RET 



— HL = 変換したい十六進数 


— 「HL — BC = A...HL」 を実行し、 DE レジス 
夕で示されるアドレスに A レジスタの値を 
入れる。 DE レジスタは+1される 


「 IIEXDC 」 はサブルーチンになっていますから、十進数にしたいデータを 
HL レジスタに入れてコールすれば、その都度 「 MEMRY 」 に十進データを得 
ることができます。このあとで 「 MEMRY 」 にあるデータを表示するのは、簡 
単なことでしょう。あるいは、このサブルーチンにある 「 WARIS 」 で、直接 A 
レジスタの値を表示するようにブログラムを直してもいいでしょう。 

マドリツドといえば、マイヨル広場の近くに‘森の家’という安くて評判の食堂 
がありました。貧乏旅行者でも、ここに行けばバカ（肉）がバカバカ食べられ 
ると、その名声は遠くおフランスの町まで届いておりましたナ。 

いつの日か、また放浪の旅をしたい……。 
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Bcd 難の顧 

ワシは海賊船の船長、グルメ •クックだ。 

當業海域はカリブ海。ここには無数の宝島があり、欲に飢えた人間 
どもが金を持って乗り込んでくる。ウ ワッハッハ…… 。 みな、ワシの 

お得意様よ。 

近ごろでは、金が貯リすぎてとても数えきれん。そこで、コン 
ビュータを使って残高を計算できるようにしようと思うのだ。もちろん、16ビットのレジスタ 
なんかで間に合うわけがない。そういう場合、メモリを使うということも知っておる。 

しかし、問題がないわけではない。それを画面にどうやって十進数にして表示するかがわか 
らんのだ。〇〜 FFFF h (0 〜 65535) までの表示法は最近覚えたのだが……。 

イヤ、待てよ。できんということもないナ。メモリどうしの引き算（問その40参照）は知っ 
ているから、100万で割り算をするなら、メモリに 0 F 4240,, を入れて引き算を繰り返せばいい 
のだろう。 

でも、面倒くさい話ではないか。いちいち割り算をするなんて。金がドンドン入ってくるの 
に、こんな面倒なことやってられるかってんだ。簡単に十進にする方法はないか。 

カリブの海賊（ネズミーランド） 



■答 

カリブの海賊？ まさか、浦安とかロスとかフロリダにいるという例の…。 

確かに、あれだけの黄金財宝を数えるとなると、大変なことでしょう。いっ 
たい何桁になるのか見当もつきません。割り算のブログラムを組むにしても、割 
る数が1兆などという桁になると、それ自体を十六進数に変換するのが大変です。 

そこで登場するのが 、 BCD (Binary Coded Decimal =二進化十六進数）に 
よる計算方法です。これは、十六進数のうち〇〜9までを使用し、 A 〜 F は使用 
しないで計算しようという考え方です。 

例えば、これまでは12,，といえば十進数では18でしたが、これを十進数の12と 
見なすのです。もちろん、見なすのはあなたですから、計算の相手に A 〜 F を 
含んだ数値を使ってしまっては意味がありません。 

この条件さえ守れば、ブログラム的には簡単です。加減算命令のあとに 
「 DAA 」 と一言入れてやればいいのです。問（その 40) の計算例と比べてみて 
ください0 
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DAT AO 十 DATA1 


DAT AO — DATA1 


DATA 0 : 

DB 

32 H ,20 H ,58 H 

DATA 1 : 

DB 

13 H ,50 H ,88 H 

KEKKA : 

DB 

0,0,0 

ADD 01 : 

LD 

DE , DATA 0+2 


LD 

HL , DATAl +2 


LD 

1 X,KEKKA + 2 


OR 

A 


LD 

B ,3 

ADDLP : 

LD 

A ,( DE ) : 


ADC 

A ,( HL ) 1 


DAA 



LD 

(IX + 0 ),A 


DEC 

DE j 


DEC 

H し 1 


DEC 

IX 


DJNZ 

ADDLP 


RET 

_ 


DATAO : 

DB 

DATA 1 : 

DB 

KEKKA : 

DB 

SUB 01 : 

LD 


LD 


LD 


OR 


LD 

SUBLP : 

LD 


SBC 


DAA 


し D 


DEC 


DEC 


DEC 


DJNZ 


RET 


32 H ,20 H ,58 H 

13 H ,50 H ,88 H 

0 , 0,0 

DE , DATA 0 + 2 
HL , DATAl +2 
I X , KEKKA 十 2 
A 

B ,3 

A ,( DE ) 

A ,( HL ) 

(IX + 0 ),A 
DE 

H し 
IX 

SUBLP 


一 B 
= 桁数 


計算の終了した時点で、「 KEKKA 」にはそのまま十進数として読めるような 
形で答が入つています。画面に表示する時には、それぞれの値を上位/下位に 
分けて表示すればいいのです。 


上位の値を A レジスタ 


下位の値を A レジスタ 


A ,( HL ) 

I - 

| LD 

A ,( HL ) 


AND 

' - 

000011 11 B 


注）どちらも HL レジスタで表示したい数値のある 
アドレスを指定したものとする。 


これで、割り算による手間が省けるとともに、桁（兆の位とか億の位…等） 
を意識しないで数値を表示することができるわけです。 

ところで、カリブの海賊は有名だけど、ネズミーランドっていうのは 7 ?? 
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/一夕の左右反転 


初めての質問です。雑誌に投稿するのが趣味の高校 3 年ですが、こ 
れからは受験勉強のため投稿はしばらく休まなければなりません。 
でも、これまでに某誌に2回も自分の作品が発表されたことがある 
んですよ (BASIC +マシン語だよ〜ン）。 

マシン語は、おもにキャラクタの表示部分なんだけど、左右反転し 
たパターンを見るたびに、メモリがもったいないな ァと 思います。 

インストラクシヨン表で、左右反転ができるような命令を捜してみましたが、どうもなさそ 
うです。 

なんとか、この無駄を解決する方法はありませんか。できれば、受験の前にこのモヤモヤを 
取り除きたいな ァ。 


投稿 マニア （徳島) 


■答 

さすが、投稿マニアを自称するだけあって、鋭い質問ですね。データは少な 
く、プログラムは短く、そして速く……マシン語の技術の差は、ここに現れる 
のです。 

すでに、このことに目覚めているからこそ、これだけの質問がでるのでしょ 
う。おそらく、受験勉強がなければ自力で解決できるだけの実力があるはずで 
す。 


とりあえず、質問の内容が具体的でないので、例をあげて解決することにし 
ます0 


(例） 

A レジスタ = EAh 





A レジスタ =57 h 



左右反転のパターンを作るには、1つのデータを図のように左右対象に入れ 
換えなければなりません。残念ながら、この命令はいくらインストラクション 
表を捜してもありません。また、論理演算命令を繰り返しても作ることはでき 
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ません。 .. 

ということは、ブログラムで反転データを作るしかないわけです。そこで、 
キヤリーフラグを利用して次のようにします。 



し D 

B ,8 

LOOP : 

RLCA 



RR 

C 


DJNZ 

LOOP 


LD 

A,C 


A レジスタの値を左回りにローテートさせると、7ビット目の値がキャリー 
フラグに入ります。次に、キャリーフラグの値が C レジスタの7ビット目に入 
るように C レジスタを右にローテートさせます。これを8回繰り返すわけです。 

キヤリーフラグの動きは、インストラクシヨン表を見ればわかるでしょう。 
問題は少々時間がかかることで、速度を追求する場合には利用できないかもし 
れません。それを考慮した上で使えば、結構役に立てられるはずです。 

でも、この程度の内容の命令は敁初から用意しておいて欲しいものですネ。 
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実用できる fee 反転プログラム 


P 


Po これは「ビー」と読みま P。 こちらは、ミニ独立国家ビータン 
で P。 わが国の憲法はただひとつ、言葉の最後に P を付けることで 
Po 

では、質問で P。 最近、データを反転するテクニック（問その43参 
照）を覚えたのですが、どうも実用性に乏しいような気がするので 
その理由は速度で P。 1バイトのデータを反転するのに. 


その44 


一 4X8=32 
一 8X8=64 
一 13X7 + 8 = 99 
—4 


で、トータル206ステートもかかっていま P。 たった1バイトならともかく、大量のデータ 
を反転するとなると問題で P。 しかも、そのために BC レジスタを破壊しなければならないの 
で P。 

これでは、現実には使いたくても使えないということになってしまいま P。 もっとうまい方 
法があると、とても便利でハッピーな気分になれそうで P 。 

ビータン国王（岩手） 


LD B,8 

LOOP : RLCA 

RR C 

DJNZ LOOP 

LD A,C 


■答 

さすが、国王。単にブログラム•テクニックを知っただけでは満足せず、そ 
こに実用性を求めていま P 。 おそれ入りましたで P 。 

確かに、1バイトを反転するのに206ステートもかかるのは問題でしょう。 
グラフイックなどはデータの山ですから、リアルタイム.ゲームに応用するの 
はほとんど不可能とも言えます。 

そこで、少々メモリは必要ですが、とっておきの秘法を紹介します。 

このプログラムで注意すべき点は、 「 RDATA 」 のスタートアドレスを1〇〇„バ 
イト単位で設定する（アドレス下位= 〇〇„ ) ということです。ここでは、あえて 
ORG 命令で1000 H から 「 RDATA 」 が開始するようにしましたが、このルール 
さえ守れば 「 RDATA 」 はどこに置いても構いません。 

実行速度は1バイトにつき26ステートですから、180ステートも速くなった 
ことになります0また、 A レジスタを反転するのに他のレジスタを必要としま 
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ORG 

1000H 

RDATA ： 

DB 

00H ， 80H,40H,0C0H,20H,0A0H,60H,0E0H 


DB 

10H,90H,50H,0D0H,30H ， 0B0H,70H,0F0H 


DB 

08H.88H,48H ， 0C8H ， 28H,0A8H,68H ， 0E8H 


DB 

18H,98H,58H,0D8H,38H,0B8H,78H,0F8H 


DB 

04H,84H,44H,0C4H,24H,0A4H,64H,0E4H 


DB 

14H,94H,54H,0D4H,34H,0B4H,74H,0F4H 


DB 

0CH,8CH,4CH,0CCH,2CH,0ACH,6CH,0ECH 


DB 

1CH,9CH•5CH,0DCH,3CH,0BCH,7CH,0FCH 


DB 

02H,82H,42H,0C2H,22H,0A2H ， 62H,0E2H 


DB 

12H,92H,52H,0D2H,32H ， 0B2H,72H,0F2H 


DB 

0AH,8AH,4AH,0CAH,2AH,0AAH ， 6AH•0EAH 


DB 

1 AH,9AH ， 5AH,0DAH,3AH•0BAH,7AH,0FAH 


DB 

06H,86H,46H,0C6H,26H,0A6H,66H,0E6H 


DB 

16H,96H,56H,0D6H,36H,0B6H,76H,0F6H 


DB 

0EH,8EH ， 4EH,0CEH,2EH ， 0AEH,6EH,0EEH 


DB 

1 EH,9EH,5EH,0DEH,3EH,0BEH,7EH,0FEH 


DB 

01H,81H,41H,0C1H,21H,0A1H ， 61H,0E1H 


DB 

11H,91H,51H,0D1H ， 31H ， 0B1H,71H,0F1H 


DB 

09H,89H,49H ， 0C9H,29H,0A9H,69H,0E9H 


DB 

19H,99H,59H,0D9H.39H,0B9H*79H,0F9H 


DB 

05H,85H ， 45H ， 0C5H,25H,0A5H,65H,0E5H 


DB 

15H,95H,55H,0D5H,35H,0B5H.75H,0F5H 


DB 

0DH,8DH,4DH,0CDH,2DH,0ADH,6DH,0EDH 


DB 

1DH,9DH,5DH,0DDH,3DH,0BDH,7DH,0FDH 


DB 

03H,83H,43H ， 0C3H,23H,0A3H ， 63H.0E3H 


DB 

13H•93H•53H•0D3H•33H,0B3H•73H•0F3H 


DB 

0BH•8BH,4BH,0CBH,2BH,0ABH•6BH•0EBH 


DB 

1BH•9BH,5BH,0DBH,3BH,0BBH,7BH,0FBH 


DB 

07H.87H,47H ， 0C7H ， 27H ， 0A7H,67H ， 0E7H 


DB 

17H,97H,57H.0D7H,37H,0B7H,77H,0F7H 


DB 

0FH•8FH•4FH,0CFH,2FH•0AFH,6FH•0EFH 


DB 

1FH,9FH,5FH,0DFH•3FH,0BFH,7FH•0FFH 

• 

# 


し D 

• 

(GETRV+1),A 

GETRV ： 

し D 

(RDATA) 

9 

# 

# 

# 


せんので、ループの中にこのまま組み入れることも可能です。 

アイデアがシンブルなだけ、実用性は逆に高くなったと言えるでしょう〇大 
いに活用してください。 

では、国王。バイ P ……。 
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フラグ、 N フラグとは 

グワ ッハッハ . !! 

オレ様は地獄の番人、閻魔大王だ。グ ワッハッハ……!! 

オレ様の前でウソなどついてみろ。 アッ という間に、この大きな 
やっとこ’で舌を抜いてしまうからナ。オレ様は、人間の話す言葉か 
ら、それがウソか真実か、簡単に見抜くことができるのだ。 


この間も、「手みやげに金の延べ板を持参してきました」と、オレ様に鉛に金メッキをした 


まがい物を渡そうとしたヤツがおってな。もちろん、血の池経由の針山行きよ。バカ老めが 


ところが、このオレ様にも最近弱点ができてしまったのだ。それは、なんとマシン語を話題 
にする相手のことだ。オレ様も必死になってマシン語を勉強したのだが、なかなか思うように 
上達せんのだよ。 

今日も、「フラグの中には H フラグや N フラグなど、ユーザーには関係のないフラグがある」 
などと言われてしまい、どうにもわからんで困っておる。なんとか、オレ様の役目も理解して、 
親切にご指導願いたい。 

間魔大王クッパ（地獄一丁目） 


■答 

こわそーツ。でも、ここでウソなど教えたら、いつの日かお目にかからなけ 
ればならなくなった時、血の池経由の針山行きなどとされてしまいそうです。 
それだけは、なんとしても避けなければ……。 

では、まず H フラグと N フラグの内容に ついて 説明をします。 

• H (ハーフキヤ リー） フラグ 

加減算などニモニック表の H フラグが 「T i 」 となっている命令を実行後、 
下位4ビットから見て、上位4ビットからの桁借り、あるいは上位4ビット 

への桁上がりがあった場合にセットされます。上位/下位単独の変化の場合 
はリセットされます。 

• N (加/減算）フラグ 

減算命令を実行するとセツトされ、加算命令を実行するとリセットされま 
す。 
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両方のフラグとも、厳密にはここに示した命令以外の命令によっても変化し 
ますが、それらは無意味な変化です。というのは、これらはユーザーが利用す 
るためにあるのではなく、 BCD 演算における DAA 命令のために用意されてい 
るからです。 

したがって、 BCD 演算に関係のない命令では、どのようなフラグ変化をしよ 
うと基本的に価値がありません。ユーザーが利用できないようになっているの 
も、特に必要がないからだといえるでしょう。 

しかし、 DAA 命令によっても変化する H フラグは、利用できるなら利用した 
い時がないわけでもありません。例えば、特定の桁が変化したかどうかを調べ 
るという場合など、 H フラグがキャリーフラグとともに利用できると便利です。 

このような場合でも、 H フラグがフラグレジスタの中にある限り、どうやっ 
ても調べることはできません。あまり感心できる方法ではありませんが、次の 
ようにすれば一応 H フラグを調べられます。 


PUSH 

AF 

POP 

BC 

BIT 

4,C 

JR 

NZ,xxxx 

• 

• 

• 

• 


—フラグレジスタの値を C レジスタへ 
— H フラグのチェック 


この方法であれば、もちろん N フラグも調べることはできますが、いずれに 
してもそれほど必要になることはないでしょう。要するに、やむを得ない時に 
は、こういった奥の手もあると覚えておけばいいという程度のことです。 

これらは、決してウソの説明ではありません。本当に、本当ですとも……閣 
魔大王クッパさま……。 
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ち度の CP 命令で 5 つの条件_ 

ア ー、 忙しい忙しい。とにかく、この日は忙しい……。 

わしか、わしはサンタクロースじやよ。毎年、 12 月 24 日の夜には世 
界中の子供たちにプレゼントを配らなければならないのじや。そし 
て、いつものことじやが悩むのは配る順序についてじや。下手をする 
と夜が明けてしまうからな。 


そこで、最近はコンピュータを導入して合理化を図っておるのじゃ。「エーッ MJ と驚く人も 
いるかもしれないが、このプログラム次第でわしの真価が問われるのじゃから、気合いも入ろ 
うというもの。 

いま、ここに 5 種類のプレゼントが用意されているとしよう。子供たちは、サンタ•プレゼ 
ント方程式により、皆ある数値を持っておる。そして、その値によりどのプレゼントがもらえ 
るかが決まるようになっておるのだ。 


その値とは、 0 、 1 、 2 〜 7F„ 、 80„ 、 81„ 〜 FF„ の 5 種類で、ここからそれぞれのプレゼントルー 
チンヘとジャンプさせるわけじ や。 テーブルを作ってジャンプさせるには不便だし、やっぱり 
CP 命令で 1 っひとっ分岐させるしか手はないかのう……。 

とにかく、この条件分岐は何度も使用するので、できるだけ速く分岐させたいというのが、 
わしの希望じや。 


サンタ日本代理人•黒須三太（富士山) 


|答 

サンタの世界にもコンピュータが入り込んでいるとは、正直のところ笟かず 
にはいられません。そして、ここでも要求されているのはスピードです。まさ 
に、スピードを制す者は世界を制すという感じです。 

ちなみに、質問の内容をブログラムにすると次のようになっているのでしょ 
うか0 


CP 

1 

JP 

C,SANTO 

JP 

Z,SANT1 

CP 

80 H 

JP 

C,SANT2 

JP 

Z,SANT3 

# 

SANT 4 : 

し . ■ 

: 

-： _1 
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これでも悪いということはありません。どちらかというと、非常に一般的と 
いえるでしょう。しかし、ここはひとつ0、1、2〜 7 F h 、80 h 、81 h 〜 FF h という、 
条件分岐の基になっている値に注目してみたいのです。 

この値が偶然に付けられたのか、それとも特別な意図があって付けられたの 
かは不明ですが、一度の CP 命令で5っの判定ができる実に有効な数値なので 
す。では、それぞれの値について、 「 CP 1 J によるフラグの変化を示してみま 
す。なお 、 H (ハーフキャリー）フラグについては、条件分岐に利用できない 

ので省略してあります。 

どうですか。4つのフラグ 
をうまく利用すれば、一回の 
CP 命令ですベての分岐先へ 
ジャンプできそうですね。た 
だし、分岐の順序を間違える 
と、せっかく変化してくれた 
フラグが役に立ちません。次 
の例を参考に、注意してジャ 
ンブさせてください。 

たった2バイト、7ステ ー 



サイン 

ゼロ 

P/V 

キャリー 

0 

1(M) 

0(NZ) 

O(PO) 

1(C) 

1 

0(P) 

1(Z) 

O(PO) 

0(NC) 

2 〜 7F„ 

0(P) 

0(NZ) 

0(1)0) 

0(NC) 

80„ 

0(P) 

0(NZ) 

1(PE) 

0(NC) 

81„ 〜 FF„ 

1(M) 

0(NZ) 

O(PO) 

0(NC) 



CP 

1 


JP 

C,SANTO 


JP 

Z , SANT 1 


JP 

PE , SANT 3 


JP 

P , SANT 2 

爭 


SANT 4 : 

• 

• 

參 

重視も本物です。 

もちろん、 

然ですが……。 



卜の節約にしかなりませんが、要はその心 
意気が大切なのです。10万回実行すれば、 
70万ステートの節約になるのですから。さ 
らに、この分岐に優先順位（分岐する度合 
が多い方を先に分岐させる）をつけるとこ 
ろまで気を配れるようになると、スピード 


せっかくあるフラグですから、数値を特に連続させなくてもいい場合は、こ 


のサンタ的分岐法を大いに活用しましょう。 
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「 Gphl , de 」 を実現 

拝啓。春光うららかな今日このごろ、皆様にはますますご隆盛大慶 
に存じます。 

わが輩は、明治生まれの真空管技術者でござりまする。わが輩も、 
一時期は時代の最先端をいく花形技術者としてもてはやされたので 
ござりまするが、それも今や過去の夢物語であります。 

そこで一念発起、パソコンを購入しマシン語なるものにチャレンジしたのでござりまする。 
結構、色々な命令があるものでござりますな。これまでの調べで、8ビットを操作する命令に 
比べて、16ビットを操作する命令が少ないことも判明しております。 

8ビットマシンである以上、ある程度はやむを得ないのかもしれぬが、それにしても16ビッ 
卜用の CP 命令がないのはどういうことでござろうか . 。 

つまり 、 「CP HL , DEJ とか 「CP HL . BCJ という命令が欲しいのでござりまする。いく 
ら8ビットマシンとはいえ、この程度の能力がないようでは、なにかと不便で仕方がないので 
ござりまするな。よろしくお頼もうすでござる。敬具 

明治キメラ（長野） 

■答 

これはこれは、ご丁寧なご質問ありがとうでござりまする。 パソコン という 

共通の話題がある限り、「明治は遠くなりにけり」なんて死語でござりまするな。 

確かに、8ビット用の CP 命令があるのに、16ビット用の CP 命令がない とい 

うのは不便なことかもしれません。例えば、現在の所持金が10000ゴールドで、 

1000ゴールドの剣が買えるかどうかを調べる、なんていう場合もありますから。 

しかし、命令として存在し ない ものは自力で作れば いいのです。 そもそも大 

した命令がないのが マシン 語ですから、ないものは プロ グラムで作るのが当然 

ともいえます0さっそく、質問にある2つの命令をサブルーチンとして作って 
みました。 



1 

CPHDE : PUSH 

HL 

OR 

A ! 

1 SBC 

HL,DE 

POP 

HL 

RET 



CPHBC : PUSH HL 

OR A 
SBC HL,BC 
POP HL 
RET 
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プログラム的にはどちらも同じようなものです。変化するのはフラグだけで 
すから、いつでも16ビットの CP 命令として利用することができます。8ビット 
の CP 命令と違うところは 、 H (ハーフ キャリー）フラグが不定であるという点 
ですが、このフラグは基本的にユーザーが利用するものではないので、実用上 
は8ビットの CP 命令と同じと考えていいでしよう。 

もし、衷レジスタのフラグ （ F ，） を破壊しても構わないというのであれば、次 
のようにすることで実行速度を少しアップすることができます。 


0 — 

CPHBC : OR 

■ ■ mt y 

A 

SBC 

HL,BC 

EX 

AF,AP 

ADD 

HL,BC 

EX 

AF,AF. 

RET 



i B 

CPHDE : OR 

A 

SBC 

HL,DE 

EX 

AF,AF ， 

ADD 

HL,DE 

EX 

AF,AF ， 

1 RET 

1 

- - * 


PUS 1 I / P 0 P 命令 （21 ステート）を利用したものに比べて、メモリは1バイ 
卜多く使用しますが、トータルで2ステート速くなっています。このこと自体 
は特筆すべきことではなく、速くするという意識の表現という程度です。プロ 
グラムに支障がなければ、こちらのほうを利用しましよう。現実的には、琪レ 
ジスタを使用してもフラグまで保存しておくということは余りないので、特殊 
なケース以外はほとんど問題ないはずです。 

では、がんばってくださいでござりまする……。明治キメラ殿。 






^PBC ,DEj を実現 

京都〜ォ、大原三千院…… ◊ 

うちは京の舞妓どす。優雅に歌など歌っている姿を想像して、うち 
の美しさを味わっておくれやす。 

でも、これはマイコンが趣味でドス （DOS = Disk Operating Sys ¬ 
tem ) を作りたいという気持ちが高まって、いつの間にか自分のこと 
を舞妓はんと思うようになったのが本当の話どす。 

勘違いされる前に宣首しておきやすけど、一応正真正銘の女の子どすよってに、気色ワル 
〜イとかは言わはらんようにお願いしやす。ちなみに、うちの話す舞妓はん言葉もメチャク 
チャどす ェ。 なにしろ、生まれは閲東どすから……。 

いま、あるブログラムで 「CP BC , DEJ という内容を実行したいのどすが、うちの実力で 
はとつにもわからんのどす。 HL レジスタとの比較ならば、最近覚えたばかりのプログラム（問 
その47参照）があるのどすが、 HL レジスタは使用中どす。 

こういう場合、いったいどうしたらいいのどす？困ってしまうどす。ア 〜ァ、 それにして 
もマイコン以上に舞妓はん首葉は難しいどす ねェ。 

ニセ舞妓（京都） 

I 答 

•葉の紐後に丨どす」を付ければ舞妓さんというのも、なにかモノスゴイ勘 
違いのような気がしますどす。とりあえずは、正真正銘の女の子という ことが 
唯一の救いかもしれませんどす。 

さて、この命令に相当するプログラムは、次のようにすれば問（その 47) と 
ほぼ同じ感覚で作ることができます。 



CPBDE : PUSH 

| 

H し 

LD 

H,B 

LD 

L,C 

OR 

A ' 

SBC 

HL,DE 

POP 

HL 

RET 



しかし、問（その 47) にも当てはまることですが、こういったケースではゼ 
ロ フラグは特に必要としないことが多いものです。 っ まり、 キャリーフモゲド 
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よる大小の判断、数学的にいえばイコールを含んでより大きい （2) か小さい 
(<) かの判断だけでいいというケースです0 

このような場合、 A レジスタの値は破壊されますが、非常に簡単なブログラ 

ムで大小を判断することができます。 


CPBDE : LD 

A,C 

SUB 

E 

LD 

A,B 

SBC 

A,D 

RET 



ここではサブルーチンとして記述しましたが、実質4バイト （12 ステート） 
ですからサブルーチン化しないほうがいいのは当然です0また、この方法では 
レジスタとの比較だけでなく、16ビットの数値と直接比較することもできます。 
例えば、 BC レジスタと1234„を比較しようという場合、次のようにすればいい 
のです。 


LD 

A,C 

SUB 

34H 

LD 

A,B 

SBC 

A,12H 


便利さのあまり、ゼロフラグが正確にセットされないということを忘れてし 
まうと大変です。その点だけは、常に注意するようにしてくださいどす。 
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< \アレジスタの NEG 命令 

ここはエジンバラ……。イギリス北部、スコットランドにある美し 
い町です。申し遅れましたが、ポクはイギリス国内をヒッチハイクに 
よって旅している者です。 

憤れてしまえばどうということのないヒッチハイクも、最初は親 
指を立てて右手を上げるのにとても勇気が入りました。—台、また 一 

台 と車か通過するたびに、ポクには絶対に止まってくれないのではないかという不安感 

が頭をかすめたものです。 

1時間ほどして、ようやく一台の乗用車が止まってくれた時は、ボーッとして一瞬われを忘 
れたほどです。でも、それがきっかけとなってヒッチハイクのコツがわかり、今ではマナーん 
わきまえた一流のヒッチハイカーです。 

それはいいとして' 忘れられないのが日本に*いてきたコン ビュー タのこと。というよリ 
せっかく覚えたマシン語のことです。だから、頭の中はいつもマシン語でいっぱいです車が 
止まってくれない時は、もちろんマシン語のことを考えています。 

「 NEG 」 というマイナスの値を作る命令がありますね。ある時、あれの16ビット版はどう 

やっ r こらいいか。これを考えていたら、右手を上げるのをすっかリ忘れてしまったことがあリ 
ます0 

おかげで、車は止まらないわ、雨は降ってくるわ……で、さんざんな目にあってしまいまし 
た0 

どうか、気分よくヒッチハイクができるように教えてください。 

ヒッチくん（エジンバラ） 


答 

日本ではヒッチハイクの習慣はあまりありませんが、ヨーロッパなどでは若 

者の移動手段として立派に市民権を得て います。 目的地に いつ 到着す るかわか 

らな いという 不確実な点も、若者の気ままな 旅に合っているの かもしれ ません。 

ヒッチハイクの コツ は、まず郊外の街道筋まで出る ということ。 例えば、銀 

座や新宿のような場所では成功しません。そして、車が止まってくれたら、急 

いで 車の ほうへ 走り寄り、行き先を ハッ キリと 言います。 行き先が違えば、残 

念ながら乗るのはあきらめなければなりません。運よく乗せてもらう ことが で 

きたなら、相手に不快感や不安感を与えないようにするのも大切なことです。 

乗せて楽しかったと思われるようになれば、もう一流のヒッチ ハイカーでしょ 
ろ 0 
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私は五円玉をたくさん用意しておいて、降りる時に記念に一枚渡しました。 
外国には穴の開いたコインが少ないので、結構喜ばれたものです。 

おっと、あまりヒッチハイクの秘伝ばかり書いていると、肝心の質問を忘れ 
てしまいそうなので、ここではこれくらいにしておきましよう。 

8ビットの 「 NEG 」 は問（その 11) で紹介しましたが、16ビット用の 「 NEG 」 は 
命令として存在していません。そこで、プログラムで作ることになります。 



ここでは IIL レジスタについて記述しましたが、 BC / DE レジスタについて 
も同様のことが可能です。また、ブログラムのラベルを見てお分かりのように、 
M 初の 「DEC 1 IL 」 を省くことにより「 CPL 」 の16ビット版とすることがで 
きます。 

ちなみに、ビット単位で「 CPL 」 と「 NEG 」 の違いを見ると、次のように 
なります。 A レジスタの値は000011 11 B = 0 F „ と仮定します0 


CPL :11110000 B = F 0„ (数値上は 「XOR FFH 」 と同じだが、フラグ変 

化が違う） 

NEG :111100 01 B = F 1„ ( CPL した値に+1したもの） 

両者とも、内容をよく理解した上で使用することが大切です。フラグ変化の 
違いなどもよく確認しておきましょう。気分よくヒッチハイクするためにも 
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n … —,— 一…. 

〆 ャンブ代わりにリターン 

先手5八玉……。 

どうだ!！これがヮシの発明した戦法「玉先導」の一手目だ。その 
先はまだ秘密で教えられないが、この手で動揺した棋士は皆あわて 
ふためいて、結局は負けてしまうことになるのだ。 ワッハッハッハ!! 
ワシはプロの棋士、相手もプロ……。といっても、相手のブロはブ 


ログラムで動くコンピュータという意味だがな。もちろん、ワシがプロの棋士というのも' プ 
ログラムで動く棋士という意味だ 


おつと、正確にはワシはそのブログラマーというわけだ。できるだけ強いブログラムにする 
には、メモリを効率よく使って 思考 ルーチンを強化しなければならぬ。実は、プログラムの 一 
部に50個所にジャンプする部分がある。当然、テーブルは使っている。 


TABLE : 

"""""" | 

PROOO , PRO 01, ……， PR 048. PR 049 

MAINP : 


• 

• 

參 


し D 

RLCA 

• 

HL,TABLE 


LD 

E,A 


LD 

D ,0 


ADD 

HL,DE 


LD 

E ,( HL ) 


INC 

HL 


LD 

D ,( HL ) 


EX 

DE,HL ! 


JP 

( HL ) 


プログラムの概略は以上なのだが、それぞれのルーチンからは 「 MAINPJ へジャンプして 

もどつてくるようになつておるのだ。単純に計算しても 「JP MAINP J が50個はあるという 

ことだ。そのほかにも、条件分岐でもどるものもあるので、実際には100個所以上から「 
MAINPJ へジャンプしてくるのだ。 

こういつたルーチンがいくつかあるので、これに要するメモリもバカにならない。なんとか 
省メモリ化できないだろうか。 

白夜の棋士（静 岡） 

■答 

コンピユータで本当に強い将棋プログラムができたら、つまり本物のブロ样 


ii8 









士と互角に戦えるようなレベルになったら、こんな痛快なことはないでしよう 
ね。 

なぜかというと、そこまで強いプログラムになると、理論上は常に最善手を 
指してくるからです。そうすると、敗着の手を指す恐れのある人間の頭では、 
アッという間にコンピュータに勝てなくなってしまうでしよう。では、そんな 
コンピュータどうしの勝負はどうなるのか、それを早く見てみたいものです。 

しかし、現在のコンピュータのレベルでは、大局感という要素があまりない 
ので、当分はお遊びソフトの域を出るのは難しそうです。 

さて、質問にあるようなメインブログラムへの大 M ジャンプですが、こういっ 
たケースにはアチコチで遭遇します。省メモリを目指す場合には、次のような 
テクニックを覚えておくと便利です。 


TABLE : 

-一 - 

PROOO , PRO01 ,……, PR048 , PR049 

, MAINP : 

• 

• 

• 



LD 

HL,MAINP 


PUSH 

H し 


LD 

HL,TABLE 


RLCA 



LD 

E.A 


LD 

D,0 


ADD 

HL,DE 


LD 

E,(HL) 


INC 

HL 


LD 

D,(HL) 


EX 

DE,HL 


JP 

(HL) 


— MAINP のアドレスを、 
もどりアドレスとして 
スタックへ入れておく 


つまり、 「 MAINP 」 をリターンアドレスとしてスタックへ退避しておくので 
す。こうすれば、それぞれのルーチンから JP 命令でなく RET 命令で、「 
MAINP 」 へジャンプさせることができます。 

この時注意しなければならないのは、各ルーチン先で、場合によっては「 
MAINPJ へもどらないことがある場合です。このような場合、スタックヘリ 
ターンアドレスを退避してあることを忘れてしまうと、 SP が狂って■走する 
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危険性があります。したがって、 RET 命令で直接 「 MAINP 」 へもどらない時 
は、 SP 合わせのダミーとして [TOP AF 」 などを実行するか 、 riNC SPJ「INC 
SP 」 として SP を元にもどす必要があります。 

このことにさえ注意すれば、この テクニック の活用の場は結構多いはずです。 
うまく活用して、本当に名人級の将棋ソフトを作ってください……。 
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1 Ld HL, SPj を実現 



ホワ ァ〜ァ . 。 眠たい眠たい . 。 

プログラマーは眼たい。とにかく眠たい。おっと、これは失礼。私 
は、某ソフトハウスでゲーム制作のプログラム•アシスタントをして 
いる者です。 

アシスタントといっても、自分の受け持ったルーチンは資任を 


持って組まなければなりませんから、手伝いというような甘い考えは通用しません。しかし、 
恥ずかしながら私はプログラマーとしてはまだまだ未熟者です。 

ニモニックの中に 「LD SP , HLJ「LD SPJXJTLD SP , IYJ という命令がありますが、 
この逆の命令はありません。 

SP (スタックポインタ）に値を設定するだけなら、直接 「LD SP , xxxxJ という命令があ 
るので、このような命令は使い道がないような気がしますが。いったい、 SP をどうしたい場 
合にこれを使うのですか。 


それにしても、ホワァ〜ア……眠たい眠たい 


眠りプログラマー（福島) 


■答 

ホワァ〜ァ……眠たいのは、こちらも同じこと。まったく、いくら寝ても眠 
たさは解消しません。今も、必死に眠たさをこらえて質問に答えているところ 


まず 、 「LD SP , IIL 」 等の反対の命令、すなわち 「LD HL . SPJ ですが、これ 
は SP を退避させるような感覚で簡単に作ることができます。 


LD (LHLSP + D.SP —4 バイト （20 ステート） 

LHLSP : LD HL ,0 


問（その 37) や問（その 39) でスタックエリアの特殊な利用法がありました 
が、その時に同様な方法で SP を退避させていました。しかし、 SP というのは 
スタックポインタであると同時に、16ビットのレジスタでもあります。もう少 
しエレガントに扱ってあげましょう 0 
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LD HL ,0 

ADD HL,SP 


—1 バイト （11 ステート） 


実行に要するステート数、そして必要なメモリ数も最初の方法より少なく、 
プログラムとしてキレイに仕上がっています。この例のように、レジスタ SP は 
「 PUSH / POP 」 ができないことを除けば、単なる16ビットレジスタとしての利 
用も可能です。 

ただし、 SP に別の数値を代入して用いる場合は、最初の方法で SP を退避し、 
DI (割込み禁止）をかけてから利用しなければなりません。このあたりの注意 
は問（その 37) にあることと同じです。 

次に 、 「LD SP . HL 」 などをどのようなケースに使うかですが、通常はあま 
り使うことはありません。質問にあるように、直接 SP に値を設定すればいいか 
らです。 

しかし、先ほどの例のように SP をレジスタとして用いている場合、16ビット 
を一度に移動できるので役に立つこともあります。例えば 、 「HL = IIL + IX 」 と 
いう内容を実行したいと仮定しましょう。当然、このような命令はありません 
から、 PUSH / POP 命令で IX を DE に移すなどしてから加算しなければなり 
ません。そこで、次のようにすることもできます。 


r ■ — ■ 

PUSH 

IX 1 

POP 

DE 

ADD 

1 _ 

HL,DE 


15ステート 
10ステート 


〇 


LD 

SPJX 

ADD 

HL,SP 


10ステート 


このようなケースはめったにあるわけではないし、割込みの禁止やスタック 
ボインタとしての SP の値を退避しておくことも前提です。通常のプログラム 
においては SP をスタックポインタとして使っているわけですから、こ^ I らの 
命令が活躍する場はあまりナイと考えたほうがいいでしょう。 

ホヮ ァ〜ァ……。 本当に眠たくなってしまった、 ムニャ……。 
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IPIR 命令について 

ゲ、ゲ、ゲゲゲのゲーッ……。 

近ごろ、ウイルスというコンピュータを悩ます妖怪がはびこって 
いるそうだが、そんなことで困っている人は、この正義のコンビュー 
夕妖怪「ゲゲゲの Q 太郎 J に連絡してください。 

連絡方法は、お近くのゲゲゲ•ネットワークへ申し込めばいいよう 
になっています。あなたのシステムに入り込んで、即座にウイルス妖怪をやっつけてあげま 
しょぅ。 

……という看板を出したのはいいけれど、実はまだ本物のウイルス妖怪にはお目にかかっ 
たことがありません。つまり、この看板は「出たとこ勝負 J のバクチなのです。とはいえ、と 
りあえずは正体不明の妖怪対策も考えておかなければなりません。 

たぶん、ウイルス妖怪退治には値をサーチする命令が欠かせないでしょう。 A レジスタの値を 
サーチする命令として、次のような命令がありますね。 



CPI 

CPIR 

CPD 

CPDR 


A と （ HL ) 
A = ( HL ) 
A と （ HL ) 
A = ( HL ) 


を比較し、 HL-HL + U BC — BC — 1をする 
となるか 、 BC = 0 となるまで CPI 命令を繰り返す 
を比較し、 HL — HL — 1 、 BC — BC — 1をする 
となるか 、 BC = 0 となるまで CPD 命令を繰り返す 


これらの命令について、どうも実行結果やフラグの見方がよくわかりません。コンピュータ 
の正義のために、正しい利用法を教えてください。 


ゲゲゲの Q 太郎（正マ界) 


■答 

ゲゲゲの Q 太郎……？ どこかで冏いたような名前です。頼りになる妖怪と 
頼りにならないお化けが合体したような、なんとも妙な雰囲気が漂っています 
が、質問からするとまだまだ実力不明の妖怪のようです。 

基本的に CPI ( CPIR ) 命令と CPD ( CPDR ) 命令とは、 HL レジスタの動き 
が逆になるだけですから、ここでは CPI ( CPIR ) 命令について説明をしていき 
ます。 

では、まず CPI 命令を実行するとフラグ以外のレジスタがどのように変化す 
るのかを確認しましょう。 
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HL 卜 HL + 1 
BC — BC -1 


これは、 A レジスタと （ HL ) が同じであろうとなかろうと、その結果に関係 
なく実行されます。このことは、当然 CPIK 命令についても同じです。 

したがって、 CPIR 命令で A = ( HL ) となった場合、その時（命令実行後） 
の HL レジスタの値は+1されていることになります。もし、 A =( HL ) となっ 
ている HL レジスタを求めたいのであれば、 CPIR 命令の後で 「DEC IIL 」 を 
実行しなければなりません。 

次に、フラグ変化についてですが、これらの命令は一見すると自動的な連続 
CP 命令に見えますが、フラグについては同一ではありません。まず、キャリー 
フラグがまったく変化しません。したがって、 CPI 命令後に大小の判断をキャ 
リーフラグで行うことはできないわけです。 

また、 A =( HL ) になった場合にはゼロフラグが立ちます。例えば 、 CPIR 
命令を実行した後で、ゼロフラグが立っていれば A = ( HL ) となって命令を終 
了したことになり、ゼロフラグが立っていなければ BC = () となって命令を終了 
したと判断できます。 

では、 A = ( HL ) となっている回数を BC レジスタの範囲だけ数える場合は 
どうしたらいいでしようか。かりに DE レジスタをその回数カウンタとすると、 
前述の判断方法によるブログラムでは次のようになります。 



LD 

DE ,0 

CLOOP : 

CPIR 



JR 

NZ,CPEND I 


INC 

DE 


JR 

CLOOP 

麄 

CPEND : 


• 

• 

秦 

___ 


……が、このブログラムには大きなミスがあることに気がついたでしょうか。 
よく見ると、 A = ( HL ) と BC = 0 が同時に起こった時を見逃しています。ゼロ 
フラグは BC = 0 となっても最後に A = ( HL ) となっていれば立ちますから、こ 
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のままでは再び10000 „ 回の CPIR 命令を実行してしまうことになります。 

しかし、この場合ブログラムで BC = 0 を調べる必要はありません。実は 、 CP 
命令と違うもう1つのフラグ変化があるのです。それは P / V フラグで、 BC レ 
ジスタの値により次のように変化します。 


BC 本0の場合： I )/ V フラグ= 0 (1)0) 

BC = 0 の場合： P / V フラグ=1 ( PE ) 

つまり、先ほどのプログラムは次のようにすることにより、正しく動作する 
ようになるのです。 


LD DE ,0 

CLOOP : CPIR 

JR NZ,CPEND 

INC DE 

JP PO,CLOOP 

CPEND : : 


この 2 つ（キャリーフラグと IVV フラグ）以外は 、 「CP ( IIL ) J と同様のフ 
ラグ変化をしますので、サインフラグによる条件分岐も可能です。 

それにしても、いつの間にコンピュータの中に「正マ界 J なんていう世界が 
できたのでしようか……。 
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Ipir 命令の効果的用法 

ヤイ、ゲゲゲの Q 太郎!！勝手にウイルス妖怪退治なんて始めるの 
はやめてくれ。オイラのように正しいコンピュータの発展を願って 
いる者には、はなはだ迷惑な話だぜ。だいたい、おまえはいつも正義 
面して厚かましいゾ!！ 

本当の正典の味方とは、オイラのことだ。ウイルス妖怪だって立派 
なプログラムなんだからな。コンピュータから見れば、有難いお客様だっていうことを忘れな 
いでくれ。あんまりウイルス妖怪をいじめるなら、オイラがウイルスになって戦ってもいいん 
だゼ。 

ところで、ゲゲゲの Q 太郎の質問に答えたんだから、オイラの質問にもまじめに答えてくれ 
よな。オイラのは Q 太郎と違って、高級な質問だぜ。やはり、ある値があるかどうかを調べる 
んだが、チ x ックする値が複数なんだ。 

たとえば、1000„番地から 1 FFF ,, 番地までにアスキーコードの ’ A ” D " F ” K ’ のどれかが含 
まれているかどうか、それを調べようというんだ。 

これには、 CPI や CPIR 命令は使えないよな。やっぱり、 CP 命令で1つひとつチェックす 
るしか方法はないだろうな……。 

でも、チェックする内容が多くなると、 CP 命令というのは結構大変なんだぜ。オイラにも 
うまい方法を教えてくれ。 

ドブねずみ男（邪マ界） 


答 

ゲゲゲの Q 太郎氏から質問があった時、きっとこの手の人物（妖怪）からも 
質問が来ると思っていました。それが、まさかこんなに早くやって来るとは 
…… 〇 ァ然!！ 

なにはともあれ、ここはまじめに答えなければなりますまい。もはや、誰が 
正義で誰が悪なのか、こちらにはサッパリわかりませんから。 

まず、この質問の内容をそのままブログラム化してみましょう。 




CLOOP : 


LD 

HL , 100 0 H 

LD 

BC , 100 0 H 

LD 

A ,( HL ) 

CP 

， A ， 

JR 

Z,CPEND 

CP 

， D ， 

JR 

Z.CPEND 
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CP 

T * 

JR 

Z,CPEND 

CP 

， K ’ 

JR 

Z # CPEND 

INC 

H し 

DEC 

BC 

LD 

A,B 

OR 

C 

JR 

NZ , CLOOP 

RET 

翁 

CPEND : 

• 

• 


内容の割には、プログラムが大がかりです。そこで、なぜ CPIR 命令が使え 
ないという結論を出したのか考えてみましょう。これは、おそらく比較しよう 
とする値 （’ ADFK ’） が A レジスタになければ CPIR 命令は使えないと判断した 
ためだと思います。 

しかし、ここはコロンブスの卵で発想を転換したいところです。つまり 、 A 
レジスタには1000„番地からのメモリ内容を入れ、比較しようとする値 
(’ ADFK ，） をメモリ側に置くのです。文章ではわかりにくいので、圾レジスタ 
を用いて実際にプログラムを組んでみます。 


CDATA : DB 

し D 

LD 

CLOOP : LD 

EXX 

し D 
し D 

CPIR 

EXX 

JR 

INC 

DEC 

LD 

OR 


• ADFK ， 

HL , 100 OH 
BC , 100 OH 
A ,( HL ) 


JR 

RET 


NZ , CLOOP 




CPEND : 


HL,CDATA 
BC .4 


Z,CPEND 

H し 

BC 


A,B 

C 
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こうすれば、たとえチヱックする値や順序を変更する場合でも、 「 CDATA 」 
の内容や並びを変えるだけで簡単に変更できます。チェックする数が多くなれ 
ばなるほど、このブログラムの簡略さが活きてくるでしょう。なお、 EXX 命令 
では A レジスタやフラグの変化はないという特徴を利用していることにも注目 
してください。 

ドブねずみ男氏が、どのような目的でこの複数サーチ.プログラムを利用す 
るのかわかりませんが、あまりコンピュータ内部でモメないようにお願いしま 
す。めったに出てこないウイルスより、身近な鉍走のほうが困りますから……。 
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Gpdr 命令とテ-ブル 

コラ〜ッ!！ Q 太郎にドブねずみ男。ケンカをするでにゃい。少し 
は、わしの立場も考えてくれにゃ、人間さまがコンピュータを嫌いに 
なってしまうじゃろが。 

わしか、わしはこの世界の長老•目ン玉おやじ’に決っておるじゃ 
ろ。初代コンビュータが巨大な箱としてこの世に生まれてから数十 
年、絶えることなくバグを繁殖させ、そしてそれを食べ統け' バグとともに生きてきたのじゃ 

よ。 

おまえらみたいに、ボッと出の妖怪とはレベルが違うからのう。ましてや、ウイルスなんぞ 

はわしの歴史に比べたら、ひよっこもいいところじゃ。フォツフォッフォ . 。 

んにゃから、わしの質問はドブねずみ男なんか問題にならんほど高級じゃ。マ、少し似てお 
るといえないこともないがの。実は、コールすると押された キーの アスキーコードを返す 
「 KSCANJ というルーチンがあるんじゃ。その中にな、•八”0’下"><’のどれかが含まれていれば、 
それぞれに応じたルーチンへジャンプさせようというのにやよ。 



CLOOP : CALL 

KSCAN 

CP 

，八 ， 

JR 

Z,CCDTA 

1 CP 

，D， 

JR 

Z,CCDTD 

! cp 

•F， 

JR 

Z,CCDTF 

CP 

，K， 

JR 

Z,CCDTK 

JR 

# 

# 

• 

CLOOP 


これでは、さすがに CPI や CPIR 命令は使えないじやろ。こればかりは、 CP 命令で 1 つひ 
とつジャンプさせるしか手はあるまい。じやがな、チェックするキーの種類が多くなつてくる 
と、これも大変なことなんじや……。 

目ン玉おやじ（本マ界） 

■答 

とうとう出てきましたか。ウワサには聞いたことがありますが、まさか本物 
の‘目ン玉おやじ’まで登場してくるとは!！ 

コンピュータの歴史はバグの歴史とも言われていますが、バグとは人間でい 
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うなら痛みのようなもの。もしも、人間が痛みを感じなければ、ケガをしょう 
が骨折しようが、死んでも気がつかないという悲惨な状況になってしまいます。 

こんな惨劇を未然に防ぐバグ . 。ありがたいバグを育ててくれる‘目ン玉ぉ 

やじ’に心から感謝をしましょう。 

さて、今回のようなケースは意外と多く出てきます。問（その 24) にあった 
ようなテーブルが利用できれば いいので すが、 チェックする 内容が連続して い 
ない ので、そのままでは利用できません。 

チェックする数が少なければ CP 命令でもいいのですが、多くなることも考 
えて次のような手法があることも知っておくべきでしょう。 


CDATA : 

DB 

' ADFK * 

CTABL : 

DW 

CCDTA , CCDTD , CCDTF , CCDTK 

CLOOP : 

CALL 

KSCAN 


LD 

HL,CDATA + 3 


LD 

CPDR 

BC ,4 


JR 

NZ , CLOOP 

CCJMP : 

SLA 

C 


R し 

B 


LD 

HL,CTABL 


ADD 

HL,BC 


LD 

E ,( HL ) 


INC 

H し 


LD 

d ,( hl ) 


EX 

DE,HL 


JP 

( HL ) 


—BC = チェックする総数 


一見すると、 CP 命令でジャンプさせていた時より複雑になっているょうで 
すが、チヱックするキーの内容やジャンプ先が一目でわかるので、デバッグ時 
などプログラムの内容を簡単に把握することができます。また、同じょうなルー 
チンが多い場合は、 rccjMP 」 以下を共通ルーチンとして使うことができ、最 
終的には使用メモリ数も少なくなってくるでしょう。 

このようなテクニックはゲームではあまり使うことはありませんが、各種の 
ツールや実用ソフトにおいては 結構 有益なテク ニッ クです。 CPI ( CPIR )、 CPI ) 
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( CPDR ) の活用法として覚えておくと便利です。なお、チェックする総数（ = 
テーブルの総数）が128以下の場合、 「 CCJMP 」 中の 「RL B 」 は省略するこ 

とができます。 

プログラムにバグはつきものですから、結局はそれを速やかにリカバーでき 
るようなプログラムがいいプログラムといえるわけです。 





W * 分:‘、..•.ハン？ベ. V レ.▲，•バートふ'.、.''''•、••• V ♦，.ぐぐ•-々-•••.> 4 T ■.. .. 

^スト5のチェック 

村おこし……といつても、雷おこしの親戚じゃありません。過疎化 
に悩む地域を活性化し、新しいエネルギーを発生させようという、す 
ばらしい企画のことです。 

今でこそ全国どこにでも見られる現象ですが、元祖はここ大分県 
の—村一品運動なのです。どんなことでも、最初に考えて実行すると 
いうのは大変なこと。マシン語のテクニックも同じですね。 

そうとわかつていても、マシン語でオリジナルのテクニックを考えるなんて、まだまだ先の 

話です。とりあえず、現在のテクニックを覚えなければ . 。ゲームセンターで、よく スコア 

のベスト5を表示しているのがありますが、あれはどうやるんでしょう。 

たとえば、次のようにベスト5があるとします。そして、プレイした人の点数が HL レジス 

夕にある場合、その人の成嫌が何番目であるか、ベスト5に入るならばベスト5の中に点数を 
糸且み入れるようにしたいのです。 


SC 0 R 1 : 

DW 

10000 

SC 0 R 2 : 

DW 

8000 

SC 0 R 3 : 

DW 

6000 

SC 0 R 4 : 

DW 

4000 

SC 0 R 5 : 

1_ 

DW 

2000 


わが村をマシン語村とするため、どうぞよろしく。 

村長連合（大分） 

I 答 

他人のプログラムを評価するのが趣味のような人がいますが、そういう人に 
限つてオリジナルのテクニックは考えないものです。どんなにつまらないこと 
でも、最初に考えるのはとても大変です。ましてや、それがブームになるとい 
うことは、アイデア以上にその先見の明に感心してしまいます。 

ゲームセンターで自分のスコアがベスト 5 に入るのは、名誉の表彰であり、 
また次にプレイするための刺激剤でもあるわけですが、これも最初に考えた人 
がどこかにいるはずです。ブームを越えて当然のように処理されているテク 
ニック、これこそが究極のアイデアかもしれません。 

この方法は色々あるでしょうが、結局は現在のベスト5と1つひとつ比較し 
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ていくことになります。次のプログラムは、 HL レジスタに現在のスコアを入れ 
て コールす ると、ベスト5に入っていればそれを登録し、 A レジスタに順位 （6 
位以下はすべて 6) を入れて返すというものです。なお、ベスト5に同じスコ 
アがあった場合は、新しいほうのスコアを上位に入れます。 


SCORE : 

LD 

IX , SC 0 R 1 


LD 

A ,1 


LD 

B ,5 

SCORL : 

CALL 

CPSCO 


DJNZ 

SCORL 


RET 


CPSCO : 

し D 

E バ IX + 0) 


LD 

D.(IX + 1) 


OR 

A 


SBC 

HL,DE 


JR 

C , CPSC 1 


ADD 

HL,DE 


PUSH 

HL 

CPSCL : 

し D 

(IX + 0 ),L 


LD 

(IX + 1 ),H 


EX 

DE,HL 


INC 

IX 


INC 

IX 


LD 

E,(IX + 0) 


LD 

D,(IX + 1) 


DJNZ 

CPSCL 


POP 

HL 


POP 

DE 


RET 


CPSC 1 : 

ADD 

HL,DE 


INC 

IX 


INC 

IX 


INC 

A 


RET 



— SC 0 R 1 から2バイト単位でベスト5が登録されている 
- 初期順位 
—登録スコア数 


—新しいベスト X を登録し、以前のベスト X 
以下のデータを繰り下げる 


— SP 合わせのためのダミー 


では、ぜひマシン語で村おこしをお願いします。 
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X バイト数鑛 y -卜 

まろは徳川家の流れを祖母の父方の従兄弟（いとこ）の嫁の母の母 
方の父の祖父の兄の嫁の父の母方の叔父の叔母に持つという、由緒 
ある身分の生まれ……。 

まろは高貴な育ちゆえ、幼少のころはバアヤが毒味をしたあとで 
なければ食事を許されていなかったのであるぞよ。おかげで、いまだ 
に熱いものはダメ。まれにみる猫舌にてあるぞ。ところが、なんとラーメンが好きで好きでた 
まらないのよ。 

さますとメンはノビる。さまさなければ熱い。このジレンマをなんとか解消したいのである 
が、なにか妙手の心得はないかな……。 

それはさておき、まろの職業は寺小屋（早い話が塾）の講師にあるぞ。まろは、そこにおい 
て家庭用電動頭脳（早い話がパソコン）を教えておるが、本当はよくわからんのであるよ。 

先日も、子供たちに「マシン語でこの前のテスト結果を成績順に並べてヨ」と言われてしも 
うたが、難しいのでその日の講義はおひらきにした。100点满点のテストを55人に実施した場 
合、バラバラになっている点数を成績順に並べるには、どんな方法でやるといいのかのう。 

なお、子供たちの点数はメモリの 「 TENSUJ に入っており、1人1バイトを使用しておる。 
まろの悩みを閭いてくれることを期待しておるぞよ。 

徳ノ川秀® (島根） 

■答 

まず、猫??のまろが苦心の末考えた秘伝のラーメンをお教えしましょう。そ 
の名は……‘氷ラーメン，。できたてのラーメンに冷蔵庫の氷を4〜5ケ入れるだ 
けで OK です。真夏でも汗をかかずに、熱いラーメンを涼しく短時間で食べら 

れるので、食後の満足感に壮快感も加わって、もう病みつきになること間違い 
なしです。ぜひお試しください。 

満腹になったところで、数値ソートへと移りましょう。数値ソートとは、バ 

ラバラになっている数値を大きい順あるいは小さい順に並べ換えるものです。 

色々な方法が考えられますが、ここに紹介するのは小さい数値から順にフィッ 
クスしていくものです。 



SORTS : 
SOTLO : 


LD 

0,55-1 

LD 

DE,TENSU 

LD 

HL,TENSU + 1 

LD 

B,C 


C = 人数一 
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S 0 TL 1 : 

LD 

A ,( DE ) 


CP 

( HL ) 


JR 

NC , S 0 TS 1 


PUSH 

AF 


し D 

A ,( HL ) 


LD 

( DE),A 


POP 

AF 


LD 

( HL),A 

S 0 TS 1 : 

INC 

DE 


INC 

H し 


DJNZ 

S 0 TL 1 


DEC 

C 


JR 

NZ,SOTLO 


RET 


TENSU : 

DB 

XX,XX, •… 


- 隣の数値と比較し、 
小さければ入れ換える 


—55 人分の点数が連続 


プログラムの内容は、隣の数値と比較して小さければ入れ換えるという作業 
を C 回繰り返すことにより、その中の最小値をまず求めます。次に、残された 
中から M •小値を同じようにして求めます。これを C 回繰り返すことで、小さい 
数値からメモリに固定されてソートが完了するわけです。 

1バイトのソートは、色々なソートの基礎となるものですから、プログラム 
そのものよりもアルゴリズムを把握することが大切です。よくわからない場合 
は、紙切れに1〜9までの数字を書き、バラバラにしてからソートするルール 
を考えながら並べ換えてみるといいでしょう。 

最後に、全国のラーメン屋さんへ、全日本猫舌の会よりお願いです。メニュー 
に‘氷ラーメン’を入れてください。 
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气念, ♦ 我, *T ^ 9 yA ^ _^>»* * .^- #. « * * * • *«^ • . • •、•令分^^^^ 

バイト 数儀 ソート 


初めてお便りを差し上げますが、私は田舎の中学校で教師をして 
いる者です。昔は田舎の中学校といえば、オンポロ校舎に少ない生徒 
数というのが相場でしたが、最近は東京の地価高騰のあおりを受け 
て、都会風のハイカラな校舎に多数の生徒が通っています。 

ただ、私のほうがオンボロ校舎タイプの教師なので、本当はこんな 
堅苦しい言葉が大の苦手です。でも、「……だっベ」とか「……ベヱ」と言おうものなら、テ 
レビの影饔で橡準語化した生徒に笑われてしまいます。実に、ツライ職業……。 

そこで、せめて中身だけでも時代の先端を行くようにと、成嫌管理にパソコンを導入しまし 
た。プログラムにも、少しずつですがマシン語を取り入れています。とりあえずの処理として、 
テストの合計点数を成嫌順に並べたいのですが、2バイトのソートはレジスタをどのように 
ヤリクリしていいかわかりません。 

次のように 「 TENSU 」 から100人分の点数が2バイトずつ並んでいる場合、どのようにし 
てプログラム化したらいいでしょうか。 


TENSU : DW 358 

DW 125 
DW 532 


—100人分の点数が連続している 


ア ー、 標準語がツライ。どうやったらイイんだっベ。 

田舎教師（茨城） 

■答 

オッ、懐かしいベーべ一言葉。やはり、栃城（栃木と茨城）地方は、これが 
出てこなくち ゃ ダメだっ ペナ。 伝統の言葉を滅ぼそうとしている のは、 やっぱ 
りテレビの影響と東京の地価高騰 だべ…… 。 でも、例の語尾上がりのアクセン 
卜は まだ健在だっベ。 

それにしても、マシン語がいまだに機種によってバラバラなのは、なんと時 
代に逆行した現象なのでしょう。もしかすると、コンピュータの開発者という 
のはテレビを見ているヒマなどないのかもしれません。 

とりあえず、本書は Z 80 地方の方言ですべてを表現しなければなりません。 
さつそく質問にある2バイトのソートを行うことにしましょう。 
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SORTS : 
SOTLO : 


SOTL 1 : 


SOTS 1 : 


LD 

C ,100-1 

LD 

IX,TENSU 

LD 

B,C 

LD 

L,(IX + 0) 

LD 

H,(IX + 1) 

LD 

巳 (IX + 2) 

LD 

D,(IX + 3) 

PUSH 

HL 

OR 

A 

SBC 

HL,DE 

POP 

HL 

EX 

DE,H し 

JR 

NC , S 0 TS 1 

EX 

DE,HL 

LD 

(IX + 0 ),E 

LD 

(IX + 1 ).D 

LD 

(IX + 2 ),L 

LD 

( IX +3 ),H 

INC 

IX 

INC 

IX 

DJNZ 

SOTL 1 

DEC 

C 

JR 

NZ,SOTLO 

RET 



C = トータル人数一 1 


基本的なアルゴリズムは1バイトのソート（問その 56) と同じなので、今回 
はブログラムがどのように変化したかを比べてください。 





& 


ロック単位の文字列サーチ 


ビンポー、ビンボー、涙のビンボー。 

この次は、どこの家にしようかな……。住みついて楽しいのは、モ 
ノスゴイお金持ちが坂道をコロげ落ちるように貧乏になった時だけ 
ど、いくら働いても貧乏という家も住み心地はいいもんだぜ。 

だけどよ、お金っていうのは決してなくならないからな。ある所か 
らお金が出れば、どこかにそのお金は入っていく。全員貧乏という理想郷は、実現できそうで 
なかなか難しいもんだわさ。そう考えると、あっしらの存在価値なんて、本当はあるのかない 
のかわからないんだよナァ。 

それに最近は中流意識の強い家が多いから、どこへ住みついても大した感激はないもんだ 
ぜ。つまんないから、これからはコンピュータで適当な名前を作って、その名前があればそこ 
に住みつくようにしようと思うんだ。 

あっしらの専用ファイルに、8文字単位でインプットされた名字ファイルというのがある 
んだ。たとえば、貧田さんという名字の家がある場合、そのファイルにはアスキーコードで「ヒ 
ンタ • _ J (一はスペースを意味する）と入っているんだ。 

このファイルを2000•，〜 2 FFF „ 番地にロードして、適当に作った名前があるかどうかをサー 
チしようというわけだ。内容は、そのサーチ•ルーチンをコールしたら、 HL レジスタで名字 
の先頭アドレスを、そしてキャリーフラグで名字があったかどうかを返すようなもんがいい 
な。 

おっと、そこから先のあっしの行動はまだ秘密だ。これは、いわゆる企業秘密ってやっだ。 
親切に教えないと次はおまえの家に住むからな。 

貧乏神（貧民峡谷） 


答 


あれ . ?？わが家にはすでに貧乏神が住みついていますよ。ワケもなく新 

しい貧乏神が来ると、古い貧乏神とケンカになりますぞ。なにしろ、うちの貧 
乏神様は先祖伝来の大物ですから……。 

さて、これは文字列サーチの基本形となるブログラムですから、目的は別に 
してグツドな質問といえるでしょう。 

プログラムの使い方は、 「 SDATA 」 の部分にサーチしたい名字を入れ 
fSERCHJ をコールすれば OK です。 







SDATA : 

DB 

’ヒンタ 

SERCH : 

LD 

HL, 200 OH 


LD 

BC,200H 

SCHLP : 

PUSH 

BC 


CALL 

CHEK8 


POP 

BC 


DEC 

BC 


LD 

A,B 


OR 

C 


RET 

Z 


JR 

SCHLP 

CHEK8 : 

LD 

B,8 


LD 

DE,SDATA 

CHK8L : 

LD 

A,(DE) 


CP 

(HL) 


JR 

NZ,NOTSD 


INC 

DE 


INC 

HL 


DJNZ 

CHK8L 


LD 

BC, - 8 


ADD 

HL,BC 


POP 

AF 


POP 

AF 


SCF 



RET 


NOTSD : 

LD 

C,B 


LD 

B,0 


ADD 

HL,BC 


RET 



—名字 （8 文字） 

—サーチ先頭アドレス 
—サーチ名字総数(1000„/8) 


— 8 文字合えば、 HL を名字のある先頭アドレス 
にする 

—SP 合わせのダミー 
—SP 合わせのダミー 
—•名字があつたことを示すフラグ 

—次のサーチアドレスにする 


プログラムを実行すると、サーチしたい名字があればキャリーフラグを立て、 
HL レジスタをその名字の先頭アドレスにしてもどります。 

その後の処理は……、もうおまかせするしかありません。でも、うちに来て 
も餓死するだけですよ、きっと。 
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続 デー タからの文字列 サーチ 

なんみょうなみあむなむあみばてれんめんまちゃあしゅうねぎと 
ろこんぶなむなむかみさまほとけさまあ一めんそ一めんほうれんそ 
うきつねにたぬきにてんたまおとしがまちゃんちゃがまがまがいも 

のしんしゅんさんそんしゃんそんしょう . 。 

非常に読みにくいものを紹介しました。これは私が栄えある初代 
教祖となっている「ましむご教 J の経典の頭の部分です。お経はこのような感じで8888文字か 
らできており、信者は毎朝これを祈らなければなりません。 

ところが、信者のみならずこの教祖である拙僧も、このお経をまだ全部は暗記できていない 
のです。なにしろ、深い意味がなさそうでありそうで、やっぱりないのがこの経典の特徴です 
から、覚えるのは簡単ではありません。しかし、結果的にはこれも信仰心を高めることに役 
立っているのです。 

というのは、「ましむご教 J にはできるだけ速くお教を唱えた者が高い位につくという厳し 
い戒律があるからです。もちろん、教祖とて油断はできません。そのため、拙僧はこの大経典 
をコンピュータに入力し、毎日少しでも先まで覚えようとしています。そこで必要なのが、文 
字列のサーチです。 

経典という長い文字列の中から、特定の文字列をサーチするにはどうするべきか。それがで 
きないようでは、教祖としての威厳もあったものではありません。なお、サーチする文字列の 
長さは不定ですが、最大で10文字程度です。 

では、なむなむなむ……。 

ましむご大僧正（魔心寺） 

■答 

一度でいいから、なってみたいのが教祖さま。どんなにインチキくさい教祖 
でも、そこに信者がいるのが不思議です。どれほどのご加護があるのかわかり 
ませんが、ましむご教も信者がいるから成立しているのでしょう。 

それにしても、このお経と戒律。なんとまァ、ありがたさを感じさせない世 
紀末的ないい加減さ……。思わず入信したくなります……なんていう人がいる 




その59 


んでしようか。 

とにかく、ここは入信したつもりで希望通りのブログラムを組むことにしま 

しょう。実行方法は 「 SDVAL 」 に文字列の文字数 （21) を入れ、 「 SDATA 」 
に サーチしたい 文字列を入れて 「 SERCHI を コールし ます。 


14〇 








SDVAL : 

DB 

6 

SDATA : 

DB 

’ナムナムタ_ 

SERCH : 

LD 

HL , 200 OH 


し D 

BC ,8888 

SCHLP : 

LD 

DE,SDATA 


LD 

A ,( DE ) 


CPIR 



RET 

NZ 


し D 

A , ( SDVAL ) 


DEC 

A 


JR 

Z,SCHOK 


PUSH 

H し 


PUSH 

BC 


DEC 

B 


INC 

B 


LD 

B,A 


JR 

NZ,LENOK 


し D 

A,C 


CP 

B 


JR 

NC,LENOK 


POP 

BC 


POP 

HL 


RET 


LENOK : 

INC 

DE 


LD 

A ,( DE ) 


CP 

( HL ) 


JR 

NZ,NOTSM 


INC 

H し 


DJNZ 

LENOK 


POP 

BC 


POP 

H し 

SCHOK : 

DEC 

H し 


RET 


NOTSM : 

POP 

BC 


POP 

HL 


JR 

SCHLP 


—文字数 
—文字列 

—お経のある先頭アドレス 
—お経の総文字数 


— B =0 でなければ BC き100,, 


— CS 文字列数一1の確認 


実行後、サーチしたい文字列が見つかれば、ゼロフラグを立ててもどります。 
HL レジスタは、その文字列のあった先頭アドレスを示しています。このプログ 


Hi 



ラムではサーチできる最大文字列数は 10 ですが、 「 SDATA 」 のワークエリアを 
多くすればいくらでも長い文字列のサーチが可能です。 

なお、プログラムの細かな注意点として、サーチしたい最初の1文字目が見 
つかった場合、サーチ文字列数が1文字でなければ、お経の残り文字数がサー 
チする文字数分だけあるかどうかをまず確認しなければなりません。また、 2 
文字目以降で一致しなかった場合には、次のサーチはその場所からでなく、本 
プログラムのように2文字目を改めて1文字目としてサーチし直さなければな 
りません。さもないと、サーチ文字列が重なるように含まれている場合（今回 
の例では「ナムナムナムタ ♦ 」のような場合）、サーチ洩れを起こすことになり 
ます0 

これで、教祖の威厳は保てるでしょう。なむなむなむ……。 





フ〇ック単位®文字残ソート 


発明王トーマス•エジソン……この名を知らぬ者はおるまい。近代 
科学はすべてこのエジソンの発明があったからこそ生まれたの 
じゃ。エジソンがいなければ、未だにコンピュータなどなかったであ 
ろう。 

わしはエジソンを神と崇拝し、エジソンに次ぐ発明を目指してい 
る町の発明家だ。本名を江路苫州（えじ•とます）という。もちろん、両親が付けてくれた本 


名だ。 

町の者は、わしのことをエジソン、いや「えじさん」と呼んでおる。この響きが、わしにとっ 
てはたまらない魅力なのじや。 

さてさて、わしだってェジサンの名に恥じないだけの膨大な発明がある。これまでに発明し 
た名作数は199にものぼっておる。特許や実用新案になったものは、残念ながらまだない。そ 

れが、町の発明家のいいところじや。ワハハハ . 。 

すべての発明には16文字以内の名がついておる。そこで、それらをコンピュータに登録して 
アイウェオ順に並べたいのだが、マシン語は発明ほどには得意でないのだ。 

どうやっていいのか教えてくれたら、わしの発明した「灰皿パイプ J をプレゼントしよう。 
これは灰皿に長いチューブを付け、灰皿側のタバコをチューブでスバスバ吸うものじやよ。ワ 


ハハハ . 〇 

トマス • エジさん（富山) 


■答 

ヮハハハ……と言われても、タバコを吸わない人にとっては少しも役に立た 
ないブレゼントです。せっかくですが、プレゼントは辞退しておきましよう0 
それより、発明の一覧表でも機会があったら見せてください。 

ここに紹介するプログラムは、16文字ステップで文字列をソートするもので 
す。原則的には同じ文字列がないことを前提としたプログラムですが、同じも 
のがあってもソートに支障をきたすことはないでしよう。 

発明の名前は2000„番地から16文字ごとに置いてあるものとします。した 

がって、 たとえば「灰皿パイプ」であれば、「ハ イサ， ラ ハ。 イフ。_ 」 

(_ はスペースを意味する）のようにトータルで16文字になるように登録すると 


いうことです。 

また、ソート数（名前の総数）を C レジスタで扱っているため、ここでは最 
大ソート数は256個 （0 の時 256) までです。これで足りない場合は、 BC レジ 
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MSORT : 

LD 

C ,199 

SOTLP : 

し D 

HL , 200 OH 


LD 

DE , 2000 H + 16 


DEC 

C 


RET 

Z 


LD 

B,C 

S 0 TL 1 : 

PUSH 

BC 


PUSH 

DE 


PUSH 

H し 


PUSH 

HL 


PUSH 

DE 

S 0 TL 2 : 

LD 

A ,( DE ) 


CP 

( HL ) | 


INC 

HL 


INC 

DE 


JR 

Z , SOTL 2 


POP 

DE 


POP 

HL 


JR 

NC,NOEXS 


LD 

B ,16 

EXSOT : 

LD 

A ,( DE ) 


LD 

C ,( HL ) 


LD 

( HL),A 


LD 

A,C 


LD 

( DE),A 


INC 

HL 


INC 

DE 


DJNZ 

EXSOT 

NOEXS : 

POP 

HL 


LD 

DE ,16*2 


ADD 

HL,DE 


POP 

DE 


EX 

DE,HL 


POP 

BC 


DJNZ 

SOTL 1 


JR 

SOTLP 


—登録してある名前の総数 
—名前のある先頭アドレス 
—2 番目の名前のあるアドレス 


スタをカウンタに使ってブログラムを 
変更してください。 

ソートのアルゴリズムは、問（その 
56) や（その 57) の数値ソートと同じで 
す。アスキーコードも結局は1バイト 
の数値ですから、16桁の十六進数を数 
値ソートしたものと考えることもでき 


ます。 

発明というと、つい特許大発明—大金持ちという発想をしてしまいますが、 
日本のェジさんはどうなんでしようか。気になるところです……。 
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AxB = HL (標準タイプ） 

超能力者……。信じられないかもしれませんが、ポクは超能力者で 
す。テレビで有名なスプーン折りができるのです。 

ただ、まだ超能力が弱いのでスプーンを1本折るのに3時間はか 
かります。それに、その間はスプーンを撫でながらズーッと念を入れ 
なければならないので、とにかく非常に頭が疲れます。 

そこで考えたのが、この念をパソコンにさせるということです。つまり、ポクがスプーンを 
折ろうとしている時に考えていることを、パソコンにそのままやらせればスプーンが折れる 
はずだと思うのです。 

とりあえず、その準備プログラムとして必要なのが、 A X B の値を HL レジスタに入れると 
いうかけ算プログラムです。現在は次のようにしています。 



AXBH し： 

LD 

HL,0 


LD 

D,0 


LD 

E.A 

AXBLP : 

ADD 

HL.DE 


DJ NZ 

AXBLP 


RET 



かけ算としては平凡なプログラムと思いますが、もう少し速度を速める方法はないもので 
しょうか。なんとかして超能カパソコンを実現したいのです……。 

エスパー魔脳（宮崎） 

■答 

超能力者も大変そうです。そんなに苦労しなくとも、両手を使えばスプーン 
折りくらい簡単に実現できるのに……。 

どうせ超能力を使うなら、スプーンやフォークを割箸のようにタテに割ると 
か、普通の人にできないことをやってもらいたいものです。どうして超能力者 
はスプーンの首ばかりを折ろうとするのでしょうか。 

……という疑問は別にして、このバソコンによる超能力はすごく楽しみです。 
本当に成功してもらいたいものですが、その前にブログラムのバグは除いてお 
きましょう。 

このプログラムは、 B レジスタがゼロの時を無視しています。これでは、パ 
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ソコン超能力も失敗してしまいます。そういったバグも除いた上で、ブログラ 
ムをもう少し高速化してみました。 

AXBHL : LD 

I DEC 

INC 
RET 

I LD 

し D 
CP 
JR 
LD 
LD 

AXBLP : ADD 

, DJNZ 

； RET 


“速 化というより、 計算効率を 高めたというほうが適切な表現でしょう。最 

初に A と B を比較して、少ないほうをループする回数（かける数）にしただけ 

ですから、場合によっては （ A 2 B の場合）まったく効果がないこともありま 
す。 

しかし、 A = l 、 B =255 などの場合には絶大な効果がありますので、プロ 
グラムを組む際には当然考えておくべきテクニックとい えま寸 

もし超能カバソコンが実現したら、ぜひそれでスプーンを縦に割ってくださ 
い〇首折りスプーンは、もう飽きましたので . 。 


HL ,0 

B 

B 

Z 

D , 0 

E, A 
B 

NC,AXBLP 
E,B 
B,A 
H し DE 
AXBLP 
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A ^ XB = HL (筆算タイプ) 

「この石がいいね」と君が言ったから8月8日はゼハチ記念日 
「16ビットになれよ J だなんて8ビット2個で言ってしまっていいの 
キャリー というフラグを キープす ることの期限が切れてポッブエー 
エフ 

ゼットハチマルでいいのというユーザーがいて言ってくれるじやな 

いのと思う _ 

「 A にロードしろよ」「ジャンプしろ J といっもいつも命令形でブログラムする君 

わ/こしは マシン 語を自在に使い、流れるようにプログラムする女流歌人です。自己紹介の代 
わりに、わたしの短歌作品群の中で特に気に入っているものを選んでみました。誰でもできる 

……と思っていただけるところに、この作品のよさがあります。 

どこかで見たような短歌だと思う人もいるでしょう。実は、わたしもそう思っているので 
す。だから、オリジナルな短歌を目指して、 マシン 語プログラムのアイデアに磨きをかけて い 

ます。 

例えば、 AXB = HL というかけ算を、通常わたしたちがするような形で計算できないもの 
でしょうか。例えば、 23 X 45 を次のようにするやり方です。 

23 
X 45 

115…… 23 X 5 
92 …… 23 X 4 

1035 

これができれば、ブログラム効率はグンとよくなると思うのですが……。 

マシン 語歌人•俵まり（岡山） 

■答 

マシン 語を口語体のように使いこなし、流れるように美しいブログラムを組 
むというナゾの女流歌人。そんな歌人の マシン 語短歌集 r ゼ ハチ 記念日 J が3〇〇 
万部を超す売行きを示すという時代……になったらいいなと思うゼハチ記念 

日。 

マシン 語とはアルゴリズムの美を追求する言語です。足し算だけによるかけ 
算から、かけ算的なかけ算へとアルゴリズムを変えようとする点に、限られた 
文字の世界で美を追求する歌人ならではの美意識を感じます。 

ただ、これをこのままプログラム化しても、ループによるかけ算がなくなる 
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わけではなく、単に計算効率をよくしたに過ぎません。また、一段目 （115) と 
二段目 （92) を加算する際には桁をずらさなければならず、思ったほどプログ 
ラムにはアルゴリズムの美が反映されないでしょう。 

そこで、計算を次のように二進数で行うようにします。 


00010111 . 23 

X 00101101……45 

00010111 
00000000 
00010111 
00010111 
00000000 
00010111 
00000000 
00000000 _ 

000010000001011 . 1035 

計算式の中にある二進数は、すべて 23 X 1 または 23 X 0 の結果ですから、 
ループによるかけ算をしなくて済むことになります。つまり、足し算のループ 
から脱却できるようになるわけです。では、このアルゴリズムにしたがってブ 
ログラムを組んでみます。 


AXBHL : 

LD 

HL ,0 


LD 

E,B 


し D 

D.O 


LD 

B ,8 

AXBL 0 : 

RRCA 



JR 

NC , AXBL 1 


ADD 

HL.DE 

AXB し 1 : 

SLA 

E 


R し 

D 


DJNZ 

RET 

AXBLO 


—HL = かけ算の結果 
4 - de = 途中で加興される数 

4 - DE の値を左シフト 


プログラムもスッキリしていますし、かけ算の内容によって所要時間（ステ ー 
卜数）が変わるということもありません。 

こんなところにもマシン語の美が存在しているといえるでし h う。 


14^ 
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11 Lx BC=HL ( 筆算タイプ） 

ア ー、 オホン!！ 

小生はバグというケチな虫でやんす。ご存じのように、小生は姿は 
見えねど自然発生的に生まれ、適当に暴れ回ったあとは強制的に抹 
消される運命でやんす。考えると、わびしい運命でやんすネェ。 
その代わり、小生には駆除剤とかワクチンのような特効薬は存在 
しないので、プログラムさえあればいつでも生まれる可能性を持っているんでやんす。神様 
は、ちゃんと小生みたいな虫けらにも生きる道を与えてくれたんでやんすネ。 

ところで、かけ算とは1バイト x 1バイトとは限らないすね。計算結果が2バイトで収まり 

さえすれば、2バイト X 2バイトのかけ算だって当然必要でやんすから。こんな場合は、どう 
やったらいいんでやんしょ。 

足し算のループでやればいい……なんていう回答なら不要でやんすからね。速度とか美し 
さなんて小生はどうでもいいんでやんすが、小生の生まれる可能性が少ないブログラムは見 
てもつまんないんでやんすよ!！ 

ばぐちゃん（メモリの森） 

画答 

プログラムのないところにバグは発生しませんが、バグもまた生きるために 
プログラムを選んでいたとは気付きませんでした。眠たかったり疲れていたり 
すると、知らず知らずのうちにバグに狙われているのかもしれません。 

しかし、2バイト（100„以上） X 2バイト（100„以上）の計算は、結果が2バ 
イトでは収まりませんから、正しい結果を求めようとすれば、どちらかは,必ず 
FF „ 以下でなければならないはずです。 

このあたり、ついっい見逃すことがあるとバグのお世話になってしまいます 
から、注总が必要です。ただし、これはブログラムのバグというより使う側の 

ミスですから、そのことが頭の中にあればバグとして問題になることはないで 
しょぅ。 

では、 II L x BC = 11 L をプログラム化します。ついでですから、 HLx A = HL 
もブログラムにしておきます。 
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H し XBC = HL 


H し X A =HL 


AXBHL : 

EX 

DE,HL 


AXBH し： 

EX 

DE,H し 


LD 

HL ,0 



し D 

HL ,0 


LD 

A ,16 



LD 

B ,8 

AXBLO : 

SR し 

B 


AXBLO : 

RRCA 



RR 

C 



JR 

NC , AXBL 1 


JR 

NC , AXBL 1, 



ADD 

HL,DE 


ADD 

HL,DE 


AXB し 1: 

SLA 

E 

AXBL 1 : 

SLA 

E 



R し 

D 1 


R し 

D 



DJNZ 

AXBLO 


DEC 

A 

KI7 A V DIO 



RET 

_1 


JR 

NZ # AXbLU 





RET 






このプログラムでは、たとえ計算結果がオーバーフローを起こしても、オー 
バーした分が無視されるだけで接走したりすることはありません。しかし、オー 
バーしたかどうかを示すサインはありませんから、利用する側でその可能性と 
必要があれば前もって値をチェックしなければなりません。 

バグの発生する余地を残さないためには、この程度の気配りができるような 

健康状態を維持したいものです。 
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A + B=C (小数第一位七捨八入) 

水の都ベネチア . 。いったい水の都とはどういう意味なんで 

しょう。水がおいしいのか、それとも川が多いのか、それとも島がた 

くさん浮かんでいるのか . 。不思議な魅力に憧れて、ここベネチア 

へやって来ました。 

まるで海の上に敷かれたような鉄道がベネチアへの入口です。列 
車の窓から見えるものは、右も左も広大な海原ばかり、いやがおうにも水の都への期待が高ま 
ります。やがて列車はサンタルチア駅へ到清です……。 

駅前には広場があり歩道もあります。その向こう側には 「TAXI 」のマークが……。ところが、 
なんとこれが船なのです。タクシーが船ならバスも船。つまり、車道はすべて船道というわけ 
です。 

路地裏には歩道がなくても船道はあります。歩いていけない場所へも、船なら行けるので 
す。まさに水の都……。 

そういえば、日本を出る時にマシン語で A+ B = C (レジスタです）のプログラムをやりか 
けたままでした。気になるので、やっておいてください。ついでに、小数第一位で四捨五入す 
るようなプログラムもお願いします。 

旅情の人（ベネチア） 




ベネチアは潮の香りでいっぱいです。百を超える島々が運河の道路を削り、 
運河は家と家を結び町を削ります。水の都というより水上都市という感じです。 
そんなところを旅している旅情の人……。実にうらやましい限りです。 

さっそく、気になる A + B = C をブログラム化してみましょう。一般に、割 
り算は引算のループによって実行されます。当然、 B ^ o でなければなりませ 


WARIS : 

LD 

C,0 

WARIL : 

SUB 

B 


RET 

C 


INC 

C 


JR 

WARIL 


このプログラムでは 、 A — B が何回実行できるかを C レジスタによってカウ 
ントしているわけです。キヤリーフラグが立つまでループしますから、リター 
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ン後に 「ADD A , B 」 とすれば、 A レジスタには割り算の余りが求められます0 
この余りが割る数 （ B レジスタ）の半分以上であれば、 C レジスタを+1す 
ることで小数第一位で四捨五入（十六進数なので正しくは七捨八入となる）を 
したことになります。注意したいのは、 B レジスタを半分にして余りが出る場 
合は切り上げるということです（例えば7なら4とする）。 


1- 

: WARIS : 

LD 

C ,0 

WARIL : 

SUB 

B 


JR 

C.WAEND 


INC 

C 


JR 

WARIL 

1 WAEND : 

ADD 

A,B 


SRL 

B 


SBC 

A.B 


RET 

C 


INC 

C 

1 _ 

RET 



— A =整数部での余り 

一 B = B + 2 
—七捨八入を実行 


rSRL B 」 による1/2では切り捨て （7 なら 3) となりますが、その時のキヤ 
リーフラグを含めて減算することで、結果的に切り上げた値を減算しています。 
これで、安心して旅が続けられることでしよう。 
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Hl + de = bc (小数第-位 t ： 繪八入) 


拙者は伊賀の忍者。山を越え、野を越え、時代を越えて、現代社会 
へやって来たのでござる。得意の忍法は「排気ガス隱れ J ……排気ガ 
スに少し細工をして、煙玉で消えたようにするのでござる。 

昔の忍者は修行に修行を重ね、必死になって独自の忍法を開発し 
たのでござるが、すでに伊賀には r 伊賀忍法トラの卷 j があるでござる。それを見れば、こん 
な忍法なんて簡単なのでござるよ。 

そんなことより、今は甲賀忍者のコンピュータに忍び込むほうが大変なのでござる。なにし 
ろ'忍者のコンビュータというのはカラクリだらけ、まるで忍者屋敷のようなワナが待ってい 
るのでござる。 

下手にプログラムを送ろうものなら、アッという間にやられてしまう。まずは敵の情報を分 
析しなければならぬでござる。そのためには、16ビットの割り算ができなければならない。そ 
れができないところに拙者の悩みがあるのでござる。 

なんとか甲贺に内緒で教えてくれぬでござらぬか……。 

影丸（三重） 

■答 

伊賀の影丸……!?懐かしい名前でござる。拙者は大の影丸ファンでござる 
ゆえ、サインがほしいのでござるが……。 

さて、16ビットの割り算ですが、問（その 64) と同じような方法で実行させ 
ることができます。ブログラムは、小数点以下切り捨ての場合と小数第一位で 
七捨八入した場合とに分けてあります。どちらも HL + DE = BC という計算で 
すが、当然 DE 本0でなければなりません。 

小数第一位七捨八入 


WARIW : LD BC ,0 

OR A 

WARIL : SBC HL,DE 

JR C,WAEND 

INC BC 
JR WARIL 

WAEND : ADD HL,DE 
I SRL D 


小数点以下切り捨て 


WARIW : 

LD 

BC ,0 ! 


OR 

A ! 

WARIL : 

SBC 

HL,DE 


RET 

c 


INC 

BC 


JR 

WARIL 
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Hl + de = bc.a (小数第三位七捨八入) 

この伊賀者メ……!!甲賀のコンピュータに無法侵入しようなん 
て、まだまだ考えが甘い甘い。拙者とて、おぬしの作るブログラムく 
らい見当はっくわ。 

甲賀にも.甲賀忍法トラの卷 J はあるし、伊賀のコンピュータに送 
り込む刺客ブログラムも近いうちに完成するだろう。しかし、伊賀の 
忍者屋敷もなかなか手ごわいな。先日送った偵察プログラムは、とうとう戻ってこなかった。 
どうやら、敵のチェックプログラムに破れたようだ……無念。 

そこで、拙者は伊賀の計算基準を超すような、正確な割り算プログラムで対抗しようと思う 
のだ。つまり、16ビットの割り算を小数第二位まで求めようというのだ。レジスタ構成として 
は、次のようなものを考えている。 

HL + DE = BC.A 

これまでは、商は整数だったから誤差がどうしても大きくなる。計算結果を DE 倍しても元 
の HL とは相当違った値になる可能性を否定できなかった。これが小数第二位までになると、 
ほぼ正確に元の値に戻すことができるのだ。 



(例）四捨五入による計算 

50 + 30 = 2 - 2 X 30 = 60 ……誤差が大きい 
50 + 30 = 1.67 —1.67 X 30=50.1 ……誤差が小さい 

これをなんとか実用化したい。伊賀に内緒で頼む。 

サスケ（滋賀） 

I 答 

少年忍者サスケ……。拙者はサスケのファンでござる。ここに登場したサス 
ケ氏はかなり大人びていますが、それでもやはりサスケはサスケ。ぜひサイン 
をください。—なんと節操のない人物!！ 

それにしても、コンピュータをいじる影丸とサスケ……いったい現代の伊賀 
と甲賀の忍者は何を考えているのでしょうか。割り算がターゲットになる理由 
もさっぱりわかりません。とにかく、質問通りにプログラムを組むことにしま 
す。割る数 （ DE ) のゼロチェックはしていませんから、その恐れがある場合は 
計算前にそのチェックをしてください。 
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— BC に整数部の商を求める 


—HL = 割り筲の余り 
•-整数部の商を退避 


—HL + 00 = HLA で表現 
— DE = EC とする （D = 0) 

—HLA + EC の割り興 


— B に小数部（小数第二位まで）の商を求める 


—HL =小数第二位まで割り薄した余り 
— DE.C + 2 


—小数第三位の七捨八入計并 

—A =小数部の商 
— BC = 整数部の商 
—七捨八入 


整数部の商は簡単に求められますが、小数部はレジスタの役割とアルゴリズ 
ムを理解しておかないとわかりにくいかもしれません。順を追って確認しま 
しょう。整数部の計算が終わった時点で、レジスタの内容は次のようになって 
います。 


WARIX : 

LD 

BC ,0 


OR 

A 

WARL 1 : 

SBC 

HL,DE 


JR 

C , WAED 1 


INC 

BC 


JR 

WARL 1 

WAED 1 : 

ADD 

HL,DE 


LD 

( BCPOP + 1 ),BC 


LD 

C,E 


LD 

E,D 


XOR 

A 


LD 

D,A 


LD 

B,A 

WARL 2 : 

SUB 

C 


PUSH 

AF 


SBC 

HL,DE 


JR 

C , WAED 2 


POP 

AF 


INC 

B 


JR 

WARL 2 

WAED 2 : 

POP 

AF 


ADC 

HL,DE 


SR し 

D 


RR 

E 


RR 

C 


SBC 

A,C 


SBC 

HL,DE 


LD 

A.B 

BCPOP : 

し D 

BC ,0 


RET 

C 


INC 

A 


RET 

NZ 


INC 

BC 


RET 



157 



BC レジスタ = 商（整数部） 

HL レジスタ=割り算の余り 

DE レジスタ=割る数 

小数点以下の割り算は、 HL レジスタを100„倍して再び割り算をして求めて 
います。感覚的には筆算の割り算と同じですが、単純に100„倍すると HL レジ 
スタがオーバーフローを起こす危険性があります。そこで、下2桁の‘00,を A レ 
ジスタに入れると 、 HLA + DE という感じの割り算になります。 

これをそのままプログラムにすると 、 「A — E」「HL — D — CY 」 という減算 
ループをしなければなりませんが 、 「HL —D — CY 」 という命令はありません。 
そのため、ブログラムでは 、 C — E、E — D 、 D — 00とした上で、 「 A - C 」「 HL — 
DE — CY 」 の減算ループを実行しています。 

なお、ここで求められる小数部の商は十六進数ですから、分数でいうなら 
256単位の数値となります。 

最後に、 「 WAED 2」 から小数第三位の七捨八入処理をします。七捨八入した 
結果によっては A レジスタが桁上がり （ FF „— 00„)するかもしれませんので、 
その場合には整数部 （ BC レジスタ）が+1されるよう配慮しなければなりませ 
ん〇 

忍法同様、敁後の M 後まで気をゆるめないでください……。 









C A x HL，= _ 棚一位 t 搶八入） 

その昔、アラブの砂漠で3人の男が遺産相続でモメていた。亡く 
なった父親の遗言によると「遗産のラクダは、長男が1/2、次男が1/ 
4、三男が1/6、仲良く分けろ」とあったそうだ。ところが、ラクダ 
は11頭しかいない……。 

今にもなぐり合いが始まろうという時、一人の老人が現れ「お若い 
の、わしの持っているラクダを一頭やるからケンカはやめるがいい」とラクダをくれた。三人 
は g んで、12頭のラクダを遗言通りに分けた。 


長男： 12 X 1/2= 6 
次男： 12 X 1/4= 3 
三男： 12 X 1/6= 2 


分けてみると一頭余っている。分配に满足した3人は、そのラクダを丁重に老人に返したそ 
うだ。老人は、ニヤリとしていずこかへ去っていったという。 

……こんな話をしながら、父がポクたちに50,000円ものお年玉をくれるというのだ。ただ 
し、長男が270/555、次男が180/555、三男が105/555となるように、マシン語を使って分配 
するようにと命令された。 

長男のポクとしては、なんとしてもこのプログラムを完成させなければならない。どうか、 
アラブの老人になってください。 

総領の甚六（高知） 


■答 

アラブの老人になってと言われても、あれは合計が11/12だったからメデタ 
シメデタシとなったわけで、ここで似たようなことをする気分になって505円 
を出したとしても、結果は555で割り切れるようになるだけでお金は戻ってこ 
ない……〇 

それなら、プログラムを組むほうがマシというもの。すでに、問（その 66) 
によって小数第二位までの割り算ができますから、それをベースに各人の金額 
を求めてみることにしましょう。プログラムは、長男だけについて示していま 
す。 
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—HL + DE = BC.A (問その 66 を利用) 
—褒 HL = かける数 
— BC.E = かけられる 数 
— HL . A = かけ算の結果 
—二進数的手法によるかけ舞 


—菸後の七捨八入 


割り算 （50000/555) の結果に、長男の分として270をかけるわけですが、 
かけ算の方法は問（その 63) と同じです。しかし、小数点以下の処理が増えた 
分だけレジスタが不足します。そのため、かける数には輿レジスタを使用して 
います。 

最終的な計算結果は、小数第一位を七捨八入したものが HL レジスタに入り 
ます。 A レジスタにある小数部の値はそのまま残っています。 

«<計算結果〉〉> 

長男： 24324 (HL : 5 F 04 H A ： 42 H ) 


MAN 01 : 

LD 

HL , 50000 


LD 

DE ,555 


CALL 

WARIX 


EXX 



し D 

HL ,270 


EXX 



LD 

E,A 


LD 

HL ,0 


XOR 

A 


LD 

D ,16 

AXBL 0 : 

EXX 



SR し 

H 


RR 

し 


EXX 



JR 

NC , AXBL 1 


ADD 

A,E 


ADC 

HL,BC 

AXBL 1 : 

SLA 

E 


R し 

C 


R し 

B 


DEC 

D 


JR 

NZ,AXB し 0 


CP 

80 H 


RET 

C 


INC 

HL 

l 

RET 
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次男：16216 ( HL ： 3 F 58 H A ： 2 CH ) 

三男： 9459 (HL ： 24F3H A ： 6FH) 

合計では49,999円と割り切れなかった分の誤差が出ますが、小数点以下を 
考慮しない計算に比べればはるかに高精度です。もしも残った1円でモメるよ 
うであれば、最後の七捨八入を五捨六入 （「CP 80 HJ TCP 60 H 」） とすれ 
ば、三男の取り分だけが+1されて合計でビタリ50,000円になります。 

現代版 アラブの 老人…… 。 それは、 コンピュータ という砂漠に生きる マシン 
語プログラムのこ とかもしれまぜん。 
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JMLl + de = bc . A (筆算タィプ） 

.今日は東に明日は西……コビー求めて右往左往.； 

ここでいうコピーとは、宣伝文句という意味のコビーです。複写の 
ほうのコピーではないので勘違いしないでください。冒頭のコビー 
は、そんなコピーライターの実体を文字で表現したものです。もちろ 
ん私のオリジナルコビーです。 

カタカナ職業の花形ともいえるコビーライターです が、ハ デな外見とは裏腹に ハー ドな 仕 

寧です。文学的なセンスや広告の知識が要求されるだけでなく、落雷のようなひらめきが必要 
なのです。 

そんな； n けで、私はオンポロの キヤ ンビングカーで•ひらめき，を求めて日本国中をさまよつ 
ています。ただいま熊本あたりをさまよい中です。 

そこで、気になるのが燃黄 . 。これをマシン語で計算してみたいのです。それも、減算に 

よる割り算でなく、筆算のような感覚でやってみたいのです。 

(例） 7.5 

807600 
560 
40 0 
40 0 

0 



とつでしよつ。これはマシン語の•ひらめき’ではありませんか。この方法でブロ グラムが 可 

能になれば、あの非芸術的な滅算ループ割り算から脱皮できるのでは 。 

「HL + DE = BC . AJ という割り算になれば最高です。 

ビーコー物語（熊本） 

■答 

マシン 語 も‘ひらめき’が勝負です。とはいえ‘ひらめき’とは稲妻……これが落 
雷するかカラ光に終わるかは、プログラミング技術にかかっています。このあ 
たりのバランスはコピーライターに通じるものがあるかもしれ ません。 

問（その 62) で、かけ算を筆算的に行う方法の解説がありましたが、これ 
はその割り算版といえるでしよう。かけ算が二進数で加算ループを回避できた 
ように、割り算も二進数で行えば減算ループを回避することができます。なぜ 
なら、二進数の割り算では商も二進数 （1 か 0) となるからです。 
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(例） 600 + 80 = 7.5 


_0111.1 —7.5 

80— 1010000 ) 1001011000.0 —600 

0000000 
10010110 
1010000 
10001100 
1010000 
1111000 
1010000 
101000 0 
101000 0 
0 


これをブログラムにする場合、重要なのは割る数の桁数（例えば1010000 
で7桁）を知ることです。というのは、例からも明かなように、 

商の桁数（計算回数）=割られる数の桁数一割る数の桁数+1 

となるからです。ただし、この例のように商の頭に〇がくることもあります。 
筆算による割り算では、これを無意識のうちに行っていますが、ブログラム化 
する場合は商の桁数（計算回数）がわからないと、どこまで計算させていいの 
か判定できません。 

また、 マシン 語では筆算のように部分的な減算ができませんから、割られる 
数が24桁（整数部16桁+小数点以下8桁）あれば、割る数も24桁に桁合わせを 
しないとプログラムになりません。 

そこで、割る数の最上位ビットが1になるまで左シフトすれば、一段目の計 
算の桁合わせができると同時に、シフトした回数から割る数の桁数を求めるこ 
とができます。二段目からは割る数を右シフトして計算の桁合わせをします。 
次のプログラムでシフトを多用しているのは、このような理由によるものです。 





WARIZ 

WAZLO 

WARZ1 


WAZL1 : 

KEEPH : 

WARZ2 : 


: LD 

B,16 

: SLA 

E 

R し 

D 

JR 

C,WARZ1 

DJNZ 

WAZLO 

RET 


: RR 

D 

RR 

E 

LD 

A,25 

SUB 

B 

し D 

B,A 

EXX 


LD 

BC,0 

LD 

E,0 

EXX 


XOR 

A 

し D 

C,A 

LD 

(KEEPH + 1),HL 

SUB 

C 

SBC 

HL.DE 

CCF 


JR 

C,WARZ2 

し D 

HL,0 

ADD 

A,C 

OR 

A 

EXX 


RL 

E 

RL 

C 

RL 

B 

EXX 


SR し 

D 

RR 

E 

RR 

C 

DJNZ 

WAZL1 

SBC 

A,C 

SBC 

HL,DE 

EXX 


LD 

A,E 

PUSH 

BC 

EXX 


POP 

BC 


B に割る数の桁数を求め、 DE は最上位ビツ 
が 1 になるまでシフトする 


DE = 0 の場合は計算をしなし 


A = 整数部 （ 16 桁） + 小数点以下 （ 8 桁 ）+ 


B = 商の桁数（計興回数 ) 


褒レジスタの BC.E か•商となる 

HL.A が割られる数となる 
DE.C が割る数の初期値 (C = 00) 


HL.A — DE.C が成立すれば、キャリーフラグ 
を立てる 


裏レジスタの BC.E をキヤリーフラグを含め 
て左へシフトする 


4 — 


DE.C を次の段の計算に合わせ右へシフトする 


商の桁数だけ計算を繰り返す 
• 小数第三位の七捨八入処理。減興の結果、キャ 
リーフラグが立たなければ、小数第三位の 
最上位ビット =1 (8, ，以上）となり小数第二 
位を +1 する 


BC が整数部の商 
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CCF 

ADC A,0 
RET NC 
INC BC 
RET 


— A が小数部の商 


こういった 考えに よる 割り算では、小数点はユーザー側の目印にすぎません。 
したがって、 整数商を求める割り算と考えれば、 このブログラムは24 ビット— 

16 ビツトの計算をしたことになります。 

減算 ループに よる割り算に比べ、メモリ消费も多いしブログラムも複雑です 
が、商が大きくなればなるほどスピードアップ効果は大きくなります。割り算 
の目的と内容を考慮しながら、減算 ループと うまく使い分けてください。 
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謹%キ - コー K から HL レジスタへ変換 

西暦2100年……。 

1900年代後半に出回っていた Z 80 は、すでにその役目を完全に果た 

し、 CPU として成すべき使命を全うしたかに思われていた。それど 

ころか、その存在はコンピュータ史研究家の間でも忘れられた存在 
となっていた。 

なにしろ、子供向けパソコンでさえ1024ビット CPU を8個搭載している時代だ。立体テレ 
ビによる完全 3 D 画面が' まるでビデオ映像のようにパソコンで展開されている。しかも、そ 
れは家庭でのゲームである。ゲームセンターは亜空間体験ゲームルームとなり、ブレイヤーは 
完全に立体虚像化された空間を自由にさまよったり、勇者として悪を倒すという古典的シナ 
リオの世界で実際に戦ったりできるのであった。 

私は、ドラゴラン銀河系ツバイシュタイン星タイムトラベラーである。地球の未来を見てき 
たので、正直に報告しておこう。 

. で、私のタイムマシンであるが、メイン CPU はなんとその Z 80 なのである。ところが、 

どうもプログラムにバグがあるらしいのだ。アスキーコードで入力された年代（画面上の数 
字）を、マシン語プログラムで搡作するために2バイトの数値に変換しなければならないのだ 
が、それがうまくいっていないようだ。 

ところが、残念ながら私は Z 80 マシン語はよくわからない。未来の情報を教えた代わりに、 
Z 80 でのプログラムを教えてもらいたい。 

アストロ •ベイダー （ TWS 星） 

I 答 

テレビ画面の中で実際にブレイをする……これは、まさに究極のゲームとい 
えるでしょう。もっとも、それが実現した時にはすでにそれ以上のゲーム欲が 
人間を支配しているのは間違いないでしょうが……。 

平面型テレビの次は立体テレビとなると考えられていますが、いくら未来の 

テレビでも実像テレビ（テレビの中の料理が食べられる）だけは無理でしょう 

ね。となると、虚像空間の次は何が出てくるのか、そのあたりの情報も知りた 
いものです。 

未来はともかく、当面はアスキーコードで示された数字を2バイトの数値に 
変換するという現実的なブログラムを完成させなければなりません。これは、 
キースキャン結果がアスキーコードで返される場合や、テキスト画面上に表示 
されている数字を数値に変換するという場合にも必要な基本テクニックです。 
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ADATA : 

DB 

’ ，， ’1 2 3 4! 

ATOHL : 

LD 

HL,ADATA + 1 


LD 

A ," 


LD 

BC ,0 FFFFH 


CPIR 



DEC 

H し 


EX 

DE,H し 


LD 

HL ,0 


LD 

BC ,1 


CALL 

AREAD 


LD 

BC ,10 


CALL 

AREAD 


LD 

BC ,100 


CALL 

AREAD 


LD 

BC , 1000 


CALL 

AREAD 


LD 

BC , 10000 


CALL 

AREAD 


RET 


AREAD : 

DEC 

DE 


LD 

A ,( DE ) 


CP 

f t 


JR 

Z,AREND 


SUB 

，〇，一 1 

ARDLP : 

DEC 

A 


RET 

Z 


ADD 

HL,BC 


JR 

ARDLP 

AREND : 

POP 

AF 


RET 



—データはスペースで囲まれている 
— HL = データの先頭アドレス 

— DE = データのエンドサイン (* ’) アドレス 
— HL = 十六進数に変換後の値 


—アスキーコードを 「数値+1」に変換 

— SP 合わせのダミー 


このブログラムでは、’，（スペース）をデータの前後に存在させることで数字 
の区切りとしていますが、これはケースバイケースで自由に変更することがで 
きます。また、変換できる最大数字数は5桁です。5桁以上の数字列の場合は 
後半の5桁が有効数字となります。 

ただし、2バイト （0 〜 65535) を超えるかどうか、あるいはデータに数字以 
外の文字があるかどうか等、異常事態のチヱックはしていません。キースキヤ 
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ンデータの場合であれば、少なくとも数字の上下（，〇’〜，9，）くらいはチェック 
したほうがいいでしょう。 

これでタイムマシンが直ったなら、西暦2200年あたりのコンピュータ事情も 
調べてきてください。 



夏68 




ア X キ•コードから BCD の数儀へ変禊 


こちらはツバイシュタイン星よりタイムマシンの製造依頼を受け 
たトライシュタイン星のトヨサン時動社です。実は当社のタイムマ 
シンにバグが発見されたのですが、すでにツバイシュタイン星の夕 
イムトラベラーは貴地球に向かってしまった後でした。 

このままでは、時空間をフラフラする危険性があるので、ぜひ入力 
した年代を マシ ン語上で使用できるように修正したいのです。 

プログラムの内容は、 アスキーコー ドで入力された年代を BCD による数値データに変換す 
るというものです。もし、間違って2バイトの数値などに変換してしまうようなことがある 
と、ますます時空間の狂った世界へワープしてしまうでしょう。 

ツバイシュタイン星の話では、乗務しているタイムトラベラーはマシン語が弱いとのこと 
なので、おそらく地球にて誰かに質問するはずだということでした。きっとこの情報を受信で 
きるような機関へ質問していると思われるので、そのような質問があったら次のように修正 
をするように連絡してください。 

では、ブログラムを送りまままままままま一すすすす。やややややや、はははは発信機がが 
ががが、ここここ故»ししししててててまま . 。 

技術部長ノホホン （ TRS 星） 


■答 

運の悪い時はすべてがスレ違いになってしまうもの0タイムマシンのバグ発 
見が遅れたことで、運に見放されてしまったのかもしれません。ほんの少し前 
に、ツバイシュタイン星のタイムトラベラーから2バイトの数値に変換する質 
問があったばかりです。 

こうなったら、運が好転することを期待するしかないでしよう。もしかする 
と、まだ今の年代をうろついている可能性もないとはいえません。とにかく、 
アスキーコードの 数字列を BCD に変換するブログラム、これを急いで作るこ 
とにします。 


ADATA : 

DB 

■ ■ ■ _ ■ ■■ 圍 ■ 1 1 

’12 3 4 5•，’’ — データはスペースで囲む 

BCDDT : 

DB 

0,0,0 — BCD に変換された値が入る 

ADBCD : 

LD 

HL,ADATA + 1 


LD 

A " 


し D 

BC,0FFFFH 


CPIR 



i6g 






DEC 

HL 




EX 

DE,HL 


— DE = データのエンドサイン(’ •) アドレス 


LD 

HL,BCDDT - 1 


-HL = BCD に変換された値が入るアドレス 


LD 

B ,3 


一 1 

ADBLO : 

INC 

H し 


— BCD データエリア • クリア 


LD 

( HL ),0 




DJNZ 

ADBLO 




LD 

B ,3 

DE 


— (HL = BCDDT + 2となつている） 

ADBL 1 : 

DEC 




LD 

A ,( DE ) 




CP 

1 9 




RET 

z 




RRD 



—アスキーコードを BCD に変換 


DEC 

DE 




LD 

A ,( DE ) 




RRD 



—アスキーコードを BCD に変換 


CP 

» 9 




RET 

z 




DEC 

HL 




DJNZ 

ADBL 1 




RET 





BCD に変換された数値は 「 BCDDT 」 に入ります。このブログラムではメモ 
リを3バイトしか用意していませんが、メモリさえ確保すれば BCD による数 
値は桁の制限がありません。桁を増やす場合は、 BCD のメモリ数を意味する B 
レジスタの値（※印2個所）も変更してください。 

ここで、 アスキー コードから BCD の数値に変換して いる RRD 命令に目を移 
してみましよう。これは下の図のような内容の命令ですが、 アスキー コードの 
数字 （30„〜39 h ) は下位4ビットが BCI ) に 必要な部分ですから、1 バイトにつ 
き2度の RRD 命令を実行することで簡単に BCD の数値に変換することがで 
きるのです。 

R 闩 D 








7-4 | 3-0 



1 

3-0 ( HL ) 







17〇 




注意しなければならないのは、1度目の RRD では （ HL ) の上位4ビットに 
データが入るので、2度目の RRD を実行して初めて上位/下位の数値が正し 
くセットされるということです。そのため、本プログラムでは数字列の総数が 
奇数の場合には、ダミーとして スペース （20 H ) で2度目の RRD 命令を実行し 
てから BCD 変換を終了させています。 スペースの 下位4ビット=0であるこ 
とが、 この ダミー処理を成立させています。 

せっかく作ったブログラムですが、肝心の質問者は不明、連絡先も不明……〇 
事情はよくわかりませんが、バグだけは今も未来も変わらぬ存在のようです。 







IicD の關を: T スト:^ドへ変換 


その71 


ハイ、ちょっとそこのタイムマシン止まりなさい。ジグザグワープ 
は銀河交通法で禁じられていますヨ……オイ、いつまでフラフラし 
たワープを繰り返すのだ。もしかして、酔っているのか。酒酔いワー 
プは即1年間の免停と罰金20万ゴールドだぞ!！ 

アツ、また不法なワープをした。どこへ行くか、コラ……|銀河夕 


イムパトロール隊員の白いタイムマシン」通称白タイの命令には絶対服従という法律を忘れ 
たのか。この法律は各星が集まってできた銀河連邦の「時空ワープに関する交通法規特別準備 
委員会」によって正式決定された由緒ある基本六法の1つだぞ!！ 


才、やっと止まった。なんだ、年代のアスキーコードを BCD に変換するプログラムを直し 
ていたのか。仕方ない、ジグザグワープの件は許そう。だが、ワープ先の年代はちゃんとタイ 
ムマシンの前後に表示しなきやダメじゃないか。 


その方法……？ それは BCD の数値をアスキーコードに変換して、指定のメモリに入れて 
やればいいのさ。ン、マシン語がわからない……!?そんなムズかしいこと、オレに間かない 
でくれよな。 


だ、誰力 . この会話を傍受していたらプログラムを組んでやってくれないか。そうしない 

と、オレも見張りとしてここを動けない……トホホ。 


銀河のシェリフ（地球出身) 


■答 

どうやらアスキーコードを BCD に変換するというプログラム（問その 70) は 
届いたようですが、新たにその逆の問題が起きているようです。 

単純に考えれば、入力されたアスキーコードをそのまま使えばいいというこ 
とになりますが、色々事情があって別のプログラムにしているのでしょう。こ 

のあたりはタイムマシンの設計者（本番の著者ではない）の意思を尊重するし 
かありません。 


BCD の数値を上位/下位に分ける方法は問（その 42) にもありましたが、プ 
ログラム的にもう少し簡単な方法があります。問（その 70) にあったプログラ 
ムを逆用すればいいのです。 


ADATA : DB 0,0,0,0,0,0 
BCDDT : DB 12 H ,34 H ,56 H 


—アスキーコードに変換された結果が入る 
— BCD による数値 
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BCDAS : 

LD 

HL,BCDDT 


し D 

DE,ADATA 


LD 

A ,30 H 


LD 

B ,3 

BCALP : 

RLD 



LD 

( DE) # A 


INC 

DE 


RLD 



LD 

( DE),A 


INC 

DE 


RLD 



INC 

H し 


DJNZ 

BCALP 


RET 



— BCD による数値のあるアドレス 
—アスキー コー ド数字が入るアドレス 
一 30 H ゴ〇. 

— BCDDT のバイト数 
— BCD をアスキーコードに変換 


— BCD をアスキーコードに変換 


— ( HL ) の内容を元に戻す 


KIJ ) による動作の内容は、次のようなものです。 


R し □ 


A 



1 

7-4 3-0 | 7-4 3-0 


'TI 



( HL ) 


A レジスタの上位4ビットは不変ですか 
ら、敁初に A レジスタを30„(アスキーコー 
ドの’0’）としておけば、下位4ビットが入 
れ換わるたびにそのままアスキーコードの 


数字となります。 

ブログラムを見ると、1バイトの BCI ) 数値を2つのアスキーコード数字に 
変換するために、 KLD を3度実行しています。これは、動作の内容からもわか 
ることですが、 KU ) は3度実行すると元の状態に戻るという特徴があるからで 
す。当然、 RU ) を3度実行する前に A レジスタの値が破壊されると、 「 BCI ) I ) T 」 


の内容は狂ってしまいます。 

こういった特徴は、問（その 70) で使用した RRD もまったく同じです。どの 
ように使い分ければいいか、ちょうど LDI / LDD の違いにも似ていますので、 
これを機会に両者の性格をよく把握してください。手始めに、このプログラム 
を RRD を使用して作成し直してみるというのも一考です。 

これで、白タイの隊員も無事拘束から解放されることでしよう。 


H3 





Bcd をシフトする 

オー、ワタシハニホゴへタナガイジデース。チョドイマ 
ニホノ ゲンカンナリタへツイタパカリデ ース。 

ワタシウマレハフランスソダチハブラジル—アメリカ— 
インド--ドイツ—サウジアラビア—オランダ—エチオピア—中国¬ 
べル 一- ^モンゴル—ケニア—日本— ポー ラン ド— イタリア—ビルマ 


. 〇 ソノアトハキオクニアリマ シェーン。 

ダカラマトモ ニ シャべレルコトバ ナーニ モナイ。セメテマシゴカンゼン ニ 
オポエタイネ。ソコデシツモンスルアル。 

レジスタノ アタイヲ2バイスルトキ 「SLA A 」 卜カシフトシマスネ。アレッテ 
BCD ニモツウヨウシマスカ？ 


夕トエバ 、 A = 5 ヲ 2バイスルプログラムハコレデ 0 K デスカ。 


\ LD 

A ,5 

SLA 

A 

DAA 

■ - 1 


ドゾヨロシクオネガイモシァゲマス。 

ドコデモガイジン（千葉） 

■答 

ドモテイネナシツモンアリガトゴザマス。モシワケナイケドフツ 
ノ ニホゴデカカセテモライマス。 

ふう〜っ……。カタカナに気を取られて、質問の内容を忘れるところでした。 
それにしても、さすがに多国を渡り歩いているだけあって質問も鋭い点を突い 
ています。というのは、このブログラムは正解のようで正解でないし、間違 っ 
ているけども結果は合っているという妙なものなのです。 

まず、これを実行した結果はどうなるかというと、 A レジスタ=1〇„とキチン 
と2倍された値が得られます。したがって、ここでの値だけを見れば不正解と 
はいえません。しかし、これを A =8 h で実行したらどうなるでしょうか。 

結果が A = 16 h となってくれれば いいので すが、実はこれも A = 10„ となっ 
てしまうのです。つまり、結果が正しくなる時もあるし狂う時もあるのです。 
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当然、これは間違った使い方ということになります。 

DAA 命令というのは、あくまでも BCD 数値の加減算命令を実行した後にだ 
け正常な働きをする命令です。しかし、それ以外の場合でも無意識 （？） に A 
レジスタの値を BCD 化しようとする実直な命令なのです。その結果、偶然にも 
期待した値になることもあるし、まったく違った値になることもあるわけです。 
したがって、このプログラムは次のように改めなければなりません。 



ちなみに、左シフトして2倍になるとよく言いますが、これは正確には二進 
数を左シフトすると二進数表記で10倍（十進数表記で2倍）になるということ 
です。つまり、何進数であれ左シフトすればその表記での1〇倍になつているの 
です。試しに我々が日常使用している十進数で考えてみましよう。 


1 — 10 — 100 — 1000 — 10000—10000 

5—^50—500—5000—50000—50000 


実に当り前のことですね。 BCD というのは二進化十進数、つまり考え方とし 
ては十進数です。シフトさせるのであれば4ビット単位でシフトさせなければ 
なりません。当然、結果は十進数で10倍となり、 DAA をする必要はありません。 
参者までに、3バイトの BCD 数値の左シフトを行ってみましよう。 


DTBCD : 

DB 

00,12 H,34H 

— BCD による数値 

SFT10 : 

X0R 

A 



HL,DTBCD+2 



LD 

B,3 

— BCD 数値のバイト数 

LOOPS : 

RLD 




DEC 

HL 



DJNZ 

LOOPS 



RET 
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プログラム実行後には 、 DTBCD = 01„、 23„、40„となります。 RLD / RRD 命 
令がシフト命令群の中にあることからも、シフトが二進数だけをベースにした 
ものでないことが確認できると思います。蛇足ですが、100倍ならメモリ単位 
のブロック転送で処理できますし、右シフトをすれば結果は1/1〇となります。 
デハドゾ マシ ゴデセカイ ノコ クサイジ ンニ ナテクダサ〜イ……。 
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Gcd 数傾の四捨五入 

ゥヮッ!！ < 

また仲間がやられてしまった。今度の相手はとても強い 。だい 

たい、アイツら4人組だもんナァ。魔法を使うヤツもいるし、ケガを 
治すヤツもいる。おまけに戦うたびにますます強くなっていくよう 

だ 0 # 

これじゃ、いくらこちらが頑張ってもかなうわけないよナ。おや、マタンゴおやじがイイ線 
いってるぞ。うまいことアイツらを眼らせたようだ。そこだ、行けっ!！なぐれ、パンチだパ 

ンチ!！そうだ、ポディ . ボディ!！ 

やったァ〜。全員倒したぞ〜。これで、アイツらの顔は二度と見ることはない。平和な世界 

が戻った……卜卜、と思ったらアイツら生き返っちまった。 

なんてイイ加滅な世界なんだ。ここはデジタルの世界のはずなのに、まるで四捨五入の世界 

& ナ - し 、 f 

そういや、 BCD の数値を四捨五入するってのはできるんだろうか。たとえば' メモリを3 
バイト （6 桁）使って、前半の5桁を整数部、残り1桁を小数部とし、小数第一位四捨五入な 
んていうのはできるんだろうか。 

どうせ、オレたちの存在なんてゴキブリ以下なんだろうけど、それくらいはハツキリしてお 
きたいよナ。アイツらいくらでも生き返れるからいいけど、オレたち死んだらしまいのワビし 

い人生なんだからサ。 

スライムちゃん（テレビ界） 

■答 

グチを言いたいのか質問をしたいのか、本音は不明ですが、勇者の一人とし 
てスライムちゃんの気持ちがわからないわけでもありません。かなりハデに接 
れ回った経験がある以上、せめてもの罪ほろぼしに、無条件で BCD の四捨五入 

を教えることにしましよう0 

四捨五入とは、 4 以下切り捨て 5 以上切り上げですから、+ 5 をして 9 以下切 
り捨てと考えることができます。ですから、小数第一位四捨五入なら、 0 . 5 を 
足して小数点以下を切り捨てればいいのです。 

«<小数第一位四捨五入の例〉〉> 

12.3-^12.3 + 0.5=12. 8- >12.0 
12.7— 12.7+0.5 = 13.2— 13.0 
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では、質問にあるように3バイト （ 6桁）の BCD 数値の1桁目で四捨五入す 
るプログラムを組んでみます。 


DTBCD : 

DB 

12H,34H,56H 

— BCD データ 

S 1 SYA : 

LD 

HL,DTBCD+2 



LD 

A バ HL) 



ADD 

A,5 

—四捨五入のため + 5 する 


DAA 




PUSH 

AF 

—キヤリーフラグを退避 


AND 

111100 00B 

— 1桁目をゼロにする 


LD 

(HL),A 



DEC 

HL 



POP 

AF 



LD 

A,(HL) 

—以下、通常の BCD 計箅 


ADC 

A,0 



DAA 




LD 

(HL),A 



DEC 

HL 



LD 

A,(HL) 



ADC 

A.O 



DAA 




LD 

(HL),A 



RET 




四捨五入するのは1桁目ですが、桁上がりがあるかもしれません から 計算は 
全桁に渡って行わなければなりません。 

ちなみに、単なる切り上げは零捨一入のことですから、+ 9 をして切り捨てを 
すればいいわけです。もちろん、二捨三入でも八捨九入でも自由自在です。い 
かにも、スライムちやんにふさわしいブログラムではないですか . 
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BcD 雌 XA 邏 

先日、友人と3人でひなびた民宿へ泊まった。一人一泊1,000円と 
いう安さだった。次の日、ぼくは友人2人から1,000円ずつ集めて、 

まとめてお金を払おうとした。すると、バァさんが「また来ておくれ」 
と言って500円サービスしてくれた。三人で500円じや割り切れな 
いので、ぼくはこっそり200円ネコババした。そして、残りをみんな 

で100円ずつ分けた。 

結局、一人900円で泊まったわけだから、三人で2,700円だ。それに、ぼくのネコババした 

200円を足すと 。アレッ、2,900円しかない。確か、最初は3,000円あったはずだ。どこか 

に落としたのだろうか。 

ぼくは' コンピュータでこの謎を解決しようと思う。数値は BCD で3バイトを使うことに 
した。そうだ、色々な人数でも通用するようにしたほうがいい。ぼくは、人数はそれほど多く 
ならないから A レジスタで示すことにした。だから、 A レジスタは十六進数の数値ということ 

になる。 

ということは、 r 3 バイトの BCD の数値 X AJ ができればいいのだな。ぼくは、いつものよ 
うに独り首をつぶやきながら、ブログラムを組むことにした。でも、 BCD のかけ算ができな 

かった . 。 

セブンっ子 （ E 取） 

■答 

数のマジックという言葉がありますが、とかく人間は数にダマされやすいも 
のです。朝三韩四とは猿のこと、なんて思っていると痛い目に会うかもしれま 
せん。 



8畳の広い和室 
3個で9割引 
定価10,000円を980円 
合格率100%の予備校 


—畳そのものが極端に小さい 

— 3 割引 X 3個 

—500 円くらいの商品に10,000円の定価を付ける 
— 1人が5校に合格すると4人が不合格でも合格率 


は100% 


時ソバ、ねずみ講、減税と増税……、わかっていてもついついダマされそつ 
です。もっとも、今回のネコババの計算は自業自得ですが……。 

ネコ ババ計算の解決は別として、 H バイトの BCD の数値 XAJ という計算 
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は正しくブログラムしなければなりません。ここでは、 A レジスタの値が BCD 
ではなく十六進数として扱われているので、足し算のループでかけ算を実行し 
ます 0 


KEKKA : DB 

0,0,0 

DTBCD : DB 

01 H ,23 H ,45 H 

KAKBA : LD 

HL,KEKKA 

LD 

B ,3 

KBALO : LD 

( HL ),0 

INC 

HL 

DJNZ 

KBALO 

LD 

B,A 

OR 

A 

RET 

Z 

LD 

HL,DTBCD 

し D 

C ,( HL ) 

INC 

H し 

し D 

e ,( hl ) 

INC 

HL 

LD 

D ,( HL ) 

KBAL 1 : LD 

HL,KEKKA + 2 

LD 

A ,( HL ) 

ADD 

A,D 

DAA 

LD 

( HL),A 

DEC 

H し 

LD 

A ,( HL ) 

ADC 

A,E 

DAA 

LD 

( hl),a 

DEC 

HL 

LD 

a ,( hl ) 

ADC 

A,C 

DAA 

LD 

( HL),A 

DJNZ 

KBAL 1 

RET 


—かけ算の結果が入る 
— BCD の数値 

—結果エリアのクリア 

—B= ループ回数（かける数 ) 

—C=(DTBCD) 

—E=(DTBCD 十 1) 

— D=(DTBCD + 2) 

—加算ループによるかけ两 


かけ算の結果は I KEKKA 」 からの3バイトに入ります。 BCD による最も単 
純な計算例ですから、数のマジックでゴマ化されることもないで しょろ 
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Bcd どうしのかけ算(筆算タイプ) 

からっ風とカカア天下……とくりゃ、ウチの母ちゃんにビッタリ。 
暑さ寒さもなんのその、強くたくましく頼りになる母ちゃんだ。 

北風がビュウビュウ吹いたって、絶対に倒れないドッシリした体 
格ワシが安心して働けるのも、この母ちゃんがいるからだ。給料が 
安くても文句は言わない。おまけに、料理はうまいし運転もできる。 
母ちゃんが病気になってもワシは抱えられないが、ワシが病気になると母ちゃんはヒヨイ 
と抱えてくれるんだぜ。どうだい……カカア天下はいいだろう!！ 

でもな、いくら母ちゃんでもコンピュータだけはダメだ。これだけは教えてもらうことがで 

きない。仕方ないので質問だ。 

実は、 BCD でかけ算をやってみたいのだ。もちろん、問（その 62) にあるようなカツコイ 
イ方法でだ。全部を足し算のループでグルグル回すなんていうのはダメだぞ。なにしろワシは 
ソフトハウスの部長という肩窬だからな。 

おっと、レベルの低いソフトハウスだなんて思わないでもらいたい。ワシは當業部長だから 
ブログラムは閲係ないんだ。これはあくまでワシの趣味だ、し•ゅ•み……。 

信じられないんだったら、母ちゃんに聞いてみな。 

ワシは父ちゃん（群馬） 



■答 

なになに……「追伸擲き忘れたけど、母ちゃんは結構美人なんだぞ……」 
だって。こうなると、質問というより母ちゃんの宣伝みたいな気もします。 

なにはともあれ、すべてを信じて BCD のかけ算をカッ コヨク やることにし 
ましょう。ただし、問（その 62) の場合のように二進数のかけ算としてプログ 
ラムを組むことはできません。なぜなら、 BCD の数値をシフトすると、 BCD 演 
算に不適な（十六進数で A 〜 F を含む）数値となることがあるからです。 

問（その 72) でも説明したように、 BCD では数値を4ビット単位で扱うこと 
が原則です。したがって、 BCD のかけ算は筆算による十進数のかけ算と同じよ 
うな感覚でプログラムを組むことになります。なお、その際に行う桁単位のか 
け算は、足し算のループで行うしかありません。 
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«< プログラム的筆算によるかけ算の例〉〉 > 

123 

X 456 

738 —123 X 6 (足し算のループで行う） 

6150 —1230 X 5 (足し算のループで行う） 

492_ —123 X 4 (足し算のループで行う） 

56088 

では、これを実際にプログラミングして みましょう。 このプログラムでは、 
ADATA ( 3バイト：十進数で6桁 ） x BDATA ( 3パイ ト： 十進数で6桁）: 
KEKKA (6 バイ ト ：十進数で12桁）の計算を行って います。 


KEKKA : 

DB 

0,0,0,0,0,0 

DUMMY : 

DB 

0 

ADATA : 

DB 

0,0 1 H .23 H 

BDATA : 

DB 

0,04 H ,56 H 

ADA 10 : 

DB 

0,0,0,0 

KAKEX : 

LD 

HL,KEKKA 


XOR 

LD 

a. 

KK 1 L 0 ： 

LD 

( HL),A 


INC 

HL 


DJNZ 

KKILO 


LD 

HL,ADATA 


LD 

DE , ADA 10+1 


LD 

BC ,3 


LDIR 



EX 

DE,HL 


LD 

B ,4 

KKIL 1 : 

DEC 

HL 


RLD 



DJNZ 

KKIL 1 


LD 

IX,BDATA + 2 


LD 

HL,KEKKA + 5 


LD 

C ,3 

KAKLP : 

LD 

DE / ADATA + 2 


LD 

A バ IX + 0) 


PUSH 

AF 


CALL 

KAKSS 


—ADATA を 4 バイトとして扱うためのダミー 

—ADATAX10 が入る 
-結果をクリア 

— ADATAX10 を ADA10 に用意する 

4 - IX = かける数のエンドアドレス 
—(KEKKA) 〜 (KEKKA+5) に計算結果が入る 
—かけるバイト数 
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KAKSS : 

KAKSL : 


POP AF 

RRCA 

RRCA 

RRCA 

RRCA 

LD DE # ADA 10 + 3 

CALL KAKSS 

DEC IX 

DEC HL 

DEC C 

JR NZ,KAKLP 

RET 


AND 

000011 11 B 

RET 

Z 

LD 

B,A 

PUSH 

H し 

PUSH 

DE 

LD 

A ,( DE ) 

ADD 

A ,( HL ) 

DAA 


LD 

( HL),A 

DEC 

HL 

DEC 

DE 

LD 

A ,( DE ) 

ADC 

A ,( HL ) 

DAA 


LD 

( HL),A 

DEC 

HL 

DEC 

DE 

LD 

A ,( DE ) 

ADC 

A ,( HL ) 

DAA 


LD 

( HL),A 

DEC 

H し 

DEC 

DE 

LD 

A ,( DE ) 

ADC 

A ,( HL ) 

DAA 


LD 

( HL),A 

POP 

DE 

POP 

H し 


—衍ごとのかけ势 


DJNZ 

RET 


KAKSL 
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桁ごとのかけ算といっても、1バイトが2桁分に相当していますから、すべ 

ての桁を同じように扱うわけにはいきません。先ほどの例でいうと、普通の筆 

算では2段目は615となりますが、1段目とは「738 + 6150」という計算です。 

つまり、2段目の値は10倍して加算しなければならないわけです。もちろん、 

3段目は100倍して加算することになりますが、これはメモリを1バイトずら 

すことで対処できます。しかし、次の段があればやはり10倍した値が必要にな 
ります。 

そこで、最初に ADATA (かけられる数）の値を10倍したものを用意してお 
くと、かける数の上位4ビットも下位4ビットと同じような計算処理ができま 
す。ただし、10倍したものは4バイトのメモリを使いますから、プログラムは 
4バイト分の計算 （ KAKSL 内における処理）をしなければなりません。さら 
に、このプログラムを上位/下位共通に使用するためには、 ADATA のほうも 
4バイトにしておく必要があります。そのため、 ADATA の手前に DUMMY 
として1バイト（中身 = 0) を確保しているわけです。 

プログラム （ KAKSS ) を共通化せず、下位4ビット用に3バイト分の計算を 
するゾログラムを用意すれば、この DUMMY は不要です。このあたりの判断 
は、営業部長の父ちゃんにまかせることにします。 
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Hi レジスタの値を BCD に変換 

ビラミツド•パワー . 。この謎のベールに包まれたパワーを確認 

するため、私はクフ王の眠る巨大なビラ ミツ ドへとやって来ました。 

私は、すでに30年の歲月をかけて、この神秘のパワーを求める物理 
学的計算式を発見したのです。それは、あらゆるパワーが複雑に、し 
かもバランスよく絡み合った、まるで生命体のような計算式でした。 
しかし、その計算式には1つだけ未知数が存在しているのです。これは、現在の数学では発 
見されていない数値、たとえていうなら i (二乗して一1になる数値）のようなものです。私 
は、その未知数に Pp (ビュービー）と名付け、この計算式を成立させたのです。 

では、この Pp の正体だけを明かしておきましょう。 Pp とは、かけても割っても1になると 
いう数値です。例をあげてみます。 



543 XPp = l 543 + Pp = l 

つまり、あらゆる数値が1に収束してしまうのです。この未知数 Pp の存在を裏付けるため、 
ピラミッド内部のアチコチで Pp の測定をしています。その時、マシン語で BCD の数値と 
十六進数の HL レジスタの値との高速乗算をしたいのです。 

ピラミッド内部より、絶大なるご協力を要請します。 

デタラム.ベテム（エジプト） 


■答 

ピラミッドだけでなく、単なる四角錐にも謎のパワーが秘められているそう 
ですが、そのパワーとは一体何なんでしょうか。卵が腐らないとか、頭がよく 
なるとか、四角錐にまつわるウワサは真実味にあふれています。 

そこに突然登場した、この Pp (ピューピー）なる未知数……。どこまで本当 
で、どこまでウソなのか、まったくわからないところにインチキの魅力があり 
そうです。 

しかし、ここでは rBCD の数値 XHLJ だけが問題です。高速というからに 
は、問（その 74) の方法（足し算のループ）では不満なはず。どうにかして、 
HL レジスタの値を BCD 化して、問（その 75) のプログラムが使えるようにし 
なければなりません。 

ここにあるブログラムは、 HL レジスタの値を BCD に直し、問（その 75) に 
あるプログラムの 「 BDATA 」 に入れるというものです。つまり、このプログラ 
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ム （ HLBCD ) をコールしてから問（その 75) のブログラムをコール すれば いい 
わけです。 


HLBIT : 

DB 

0.0,0 

HLBCD : 

EX 

DE,HL 


XOR 

A 


LD 

IX,BDATA + 2 


LD 

(IX + 0 ),A 


LD 

( IX -1 ),A 


LD 

OX -2), A 


LD 

HL,HLBIT 


LD 

( HL),A 


INC 

HL 


し D 

( HL),A 


INC 

HL 


LD 

( HL ),1 


LD 

B ,16 

HLBLP : 

LD 

H し ， H し BIT + 2 


SRL 

D 


RR 

E 


CALL 

C,BTADD 


LD 

A ,( HL ) 


ADD 

A,A 


DAA 



LD 

( HL),A 


DEC 

HL 


し D 

A ,( HL ) 


ADC 

A,A 


DAA 



LD 

( HL),A 


DEC 

HL 


LD 

A バ HL ) 


ADC 

A,A 


DAA 



LD 

( HL),A 


DJNZ 

HLBLP 


RET 


BTADD : 

LD 

A ,( HL ) 


ADD 

A ,( IX +0) 


DAA 



—ビット別加箅データ 
— DE = 変換したい データ 
—変換先 

—( HLBIT) 〜 （HLBIT + 2) の初期化 

— B = 変換ピット数 （16 ビット） 

—ビット=1のところだけビット別加算データを加興 
—ビツト別加算データを2倍する 


ビツト別加算データを変換先に加算 
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LD 

( IX +0 ),A 

DEC 

HL 

LD 

A ,( HL ) 

ADC 

A .( IX - l ) 

DAA 


LD 

( IX -1 ),A 

DEC 

HL 

LD 

A ,( HL ) 

ADC 

A , (IX - 2) 

DAA 


LD 

( IX -2 ),A 

LD 

HL # HLBIT + 2 

RET 



ブログラムの考え方は、 HL レジスタを各ビット別に BCD 化して、16ビット 
分加算していくものです。ビット=1の場合に加算する値 （ BCD 値）は次のよ 
うになります。 


ビット0 = 00,00,01 
ビット1 = 00,00,02 

ビット2 = 00,00,04 
ビット3 = 00,00,08 
ビット4 = 00,00，16 
ビット5 = 00,00,32 
ビット6 = 00,00,64 
ビット7 = 00,01，28 


ビット8 = 00,02,56 
ビット9 = 00,05,12 
ビット10 = 00,10,24 
ビット11 = 00,20,48 
ビット12 = 00,40,96 
ビット13 = 00,81，92 
ビット14 = 01,63,84 
ビット15 = 03,27,68 


今回は、これらのビット別データを計算によって求めていますが、メモリに 
データとして用意しておくと、「ビット別加算データを2倍する」代わりにその 
データアドレスを変更するだけで済むので、メモリ効率は悪くなりますがス 
ピードはアップします。 

また、問（その 41) のような考え方で、 HL レジスタの値を10000、1000、100、 
10で減算するように割り、その商を BCD 化していくという方法もあります。ど 
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ちらの方法が処理が速いかは、その時の HL レジスタの値によって変わってき 
ますので、状況に応じながら使い分けてください。 

これで Pp (ピューピー）が発見できるのであれば、盆と正月と誕生日とクリ 
スマスが一度にやって来るでしょう。ついでに、宝くじにも当たるかもしれま 
せん……ネ!？ 
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Bcd どうしの割り算(割る数の桁数固定) 

鉄人88号がいいだろうか、それとも鉄腕ゼットがいいかな、やっば 
リエイトマシンにしようか . 〇 

ネーミングが決まらないから、なかなか設計にかかれない。人間が 
月へ行く時代だというのに、いまだに本物のロボットが作れないと 
いうのは、はなはだ遗憾である。自動車メーカーには、部分的に口 

ポッ トらしきものがあるが、いつまで待ってもあれは歩かないようだ。 

マ、順序としては鉄人 88 号から完成させるのが筋だろうな。もちろん、 1C は Z80 を使うこと 
になる。では、さっそく設計にかかろう。 

……ウ〜厶、電波を受けてから手を動かすためには、高速な割り算をしなければならないの 
か。一応、割る数は8888に固定しよう。割られる数は不定だが、8桁だな。ということは、 
BCD による筆算タイプの割り算でないと無理だ。 

しかし、滅算ループによる割り算ならできそうだが、筆算のようにするには難しそうだぞ。 
設計の前に教えてもらわなければなるまい。 

鉄人のために、よろしく頼む。 

敷島博士（山梨） 


その77 


I 答 

鉄人88号……。名前はカッコイイけど、完成した鉄人が活躍する場所を搜す 
のに苦労しそうです。 

まず、相手がいない。今どき、わざわざ目立つロボットを作って悪いことを 
しようなどという悪人はいないでしょう。おまけに、下手に歩けば道路はこわ 
すし電線にも引っかかる。それではとロケットが火を噴けば、周りは火事になっ 
て大惨事……。 

これでは、せっかくの夢がこわれそうです。余計なことを考えずに、 BCD の 
筆算タイプの割り算を実現することにしましょう。 

かけ算の時もそうでしたが、 BCD では割り算を問（その 68) のように二進数 
的な考え方で実行することはできません。そのため、商の桁ごとに減算のルー 
ブによる割り算を行うことになります。 

今回は、割られる数が8桁、割る数が8888に固定されているので、4バイ 
卜の BCD 数値を2バイト （4 桁）の BCD 数値で割るという計算ですが、問（そ 
の 68) に示されているように割られる数、割る数の桁数は割り算の重要なポイ 
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ントです。 


商の桁数= 8 — 4 + 1 


また、 BCD の計算では、その桁の商がメモリの上位4ビットに入るか、下位 
4ビットに入るかも区別しなければなりません。今回の場合は、商が5桁です 
からメモリの下位4ビットから入れることになります。 

ここでは サンブル データとして割られる数= 10967792としていますが、もし 
割り切れない数となった場合は小数点以下切り捨てです。ただし、小数点は ュー 
ザ ー 側の区切りですから、ダミーのメモリ（中身：=〇)を追加すれば、小数点 
以下何位まででも求めることができます。その場合、割る数 （ BDATA ) や商 
( KEKKA ) のメモリも計算に合わせて追加しなければなりません。 

割り算の最後は常に切り捨てですから、四捨五入したい場合は問（その 73) 
の方法で自由にしてください。 


KEKKA : 

DB 

0,0,0 

ADATA : 

DB 

10 H ,96 H ,77 H ,92 H 

BDATA : 

DB 

88 H ,88 H ,0,0 

WARIX : 

LD 

IX,KEKKA 


LD 

C ,0 


CALL 

WARI 1 


CALL 

WARI 2 


CALL 

WARI 2 


RET 


WARI 2 : 

LD 

C ,0 


CALL 

WAXCC 


SLA 

C 


SLA 

C 


SLA 

C 


SLA 

C 

WARI 1 : 

CALL 

WAXCC 


LD 

(IX + 0 ),C 


INC 

IX 


RET 



—商が入る 
—割られる数 （8 桁） 

—割る数（上位4桁） 

下4桁は桁合わせのためのダミー 

— C = 桁ごとの商 
—下位4 ビツ トの商を求める 

—上位4ピツト/下位4ピツトの商を求める 

— // 


—商を上位4ピットに移す 


19〇 




WAXCC : 

LD 

DE , ADATA +3 

① 

—桁 ごとの 商を求める割り算 


LD 

HL , BDATA +3 

② 



OR 

A 



WACLO : 

LD 

B ,4 

③ 

—巳は BCD 数値のバイト数 


PUSH 

DE 


減算ループによる割り算 


PUSH 

H し 



SBCLO : 

LD 

A ,( DE ) 




SBC 

A ,( HL ) 




DAA 





LD 

( DE),A 




DEC 

DE 




DEC 

H し 




DJNZ 

SBCLO 




POP 

H し 




POP 

DE 




JR 

C,WAEDO 




INC 

C 




JR 

WACLO 



WAEDO : 

LD 

B ,4 

③ 

—減錄し過ぎた分を加算する 


OR 

A 



ADCLO : 

LD 

A ,( DE ) 




ADC 

A ,( HL ) 




DAA 





LD 

( DE),A 




DEC 

DE 




DEC 

H し 




DJNZ 

ADCLO 




XOR 

A 




LD 

B ,4 

③ 

—割る数を 次の 桁用に右 シフ トする 

1 HLRRD : 

INC 

H し 




RRD 





DJNZ 

HLRRD 




RET 




なお、プログラムを実行すると、割られる数 ( ADATA ) は割り算の余りとな 
り、割る数 （ BDATA ) は破壊されます。必要があれば、退避してから実行して 
ください。 

そういえば、敷島博士の写真が同封されていましたが、年老いて、博士とい 

うよりまるで仙人のような風貌でした……。 
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—LD DE，ADATA + 5 
—LD HL，BDATA + 5 
- LD B ，6 



Bcd とう t の _ り算(鋼る数の桁数不定) 


わらわは卑弥呼……。その昔、わらわはこの耶馬台国を治めておっ 
たのじやが、いまだにわらわが治めた場所がわからぬというではな 
いか。 

北九州とか佐賀とか大和地方とか、説は色々と出ているようだが、 
実はわらわも古いことなのでよく笕えていないのじや。というより、 
わらわの記憶にはインブットされなかったのじや。 

おっと、わらわは本物の卑弥呼でもなければ、その生まれ変わりでもない。実を申せば、 
わらわは様々な資料を基に作られたコンピュータ卑弥呼にあるぞ。スイッチボンでわらわは 
見事に蘇り、そなたに話しかけるのじや。 

わらわを作ったのは、是戸八丸（ぜとはちまる）というヒマ人じや。わらわが彼と話したと 
ころによると、耶馬台国の距離と方角と面積のデータは入れてあるのだそうじや。だから、桁 
数不定の割り算ができれば、その地域が特定できるということじや。 

データは BCD による数値で、桁数は最大で12桁じや。もしも、そなたにこの耶馬台国の秘 
密が解き明かせるなら、わらわが人間に生まれ変わった時、そなたの嫁になってやってもよい 
ぞょ〇 

卑弥呼の部屋（奈良） 


答 


嫁……だなんて、あまりに恐れ多くて、丁重にご辞退申し上げます。凡人に 
は凡人の歩む道があり、 BCD による桁数不定の割り算ごときで嫁に来られたの 
では身体がいくつあっても足りませぬゆえ。 

とはいえ、汎用のプログラムとして、桁数不定の割り算程度は作っておいた 
ほうが便利でしょう。もちろん、まったくの不定ではブログラムになりません 
が、とりあえず最大桁数=12という条件があるので、これに準じてブログラム 
を組むことにします。 

割り算自体の考え方は問（その 77) と共通です。しかし、用意するメモリ数 
が違うため、問（その 77) のブログラムの 「 WAKI 2」 以下の部分を次のように 
変更して使用します。 


①②③ 
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したがって、ここにあるプログラムは割り算ルーチンに入る前のデータ初期 
化と、変更した 「 WARI 2」 以下を利用して割り算をするブログラムです。 


KEKKA : 

DB 

""l 

0,0,0,0,0,0 —商が入る 

ADATA : 

DB 

15 H ,18 H ,51 H ,83 H ,94 H ,00 H —割られる数（例） 

BDATA : 

DB 

0,0,0,0,12 H ,30 H —割る数（例） 

WARIX : 

XOR 

A 


LD 

HL,KEKKA —商をクリアする 


LD 

B .6 

WAILO : 

LD 

( HL),A 


INC 

H し 


DJNZ 

WAIL 0 


LD 

E ,1 — E = 商の桁数（計择回数） 


LD 

0,12 — C = 割る数の桁数 

WAIL 1 : 

LD 

A , ( BDATA ) —割る数のトツプ4ビツトがゼロで 


AND 

0 F 0 H なくなるまで桁シフトを行う。同 


JR 

NZ , WAIE 1 時に E レジスタに商の衍数を求め 


INC 

E ている 


LD 

HL,BDATA + 5 


LD 

B ,6 

WAIL 2 : 

RLD 



DEC 

HL 1 


DJNZ 

WAIL 2 


DEC 

C 


JR 

NZ , WAIL 1 


RET 

—12 桁ともゼロならリターン 

WAIE 1 : 

し D 

IX,KEKKA + 5 —商の入るアドレスを決める 


SR し 

E —商の桁数+ 2が商に必要なメモリ 


し D 

B,E 数 


JR 

Z , WAIE 2 

WAIL 3 : 

DEC 

IX 


DJNZ 

WAIL 3 


LD 

B,E 

WAIE 2 : 

し D 

C f 0 —桁ごとの商の初期値 


PUSH 

BC 


CALL 

C . WARI 1 —商の衍数が奇数の時にコール 


POP 

BC 


LD 

A,B 
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OR A 
RET Z 

WAXLP : PUSH BC 

CALL WARI 2 
POP BC 
DJNZ WAXLP 
RET 


—商の桁数 =1 の時はリターン 
—商2桁を求める 


割る数の桁を求め商の桁数を決定するという考え方は、問（その 68) と同じ 
です。また、筆算でも桁数が多ければ桁数を数えて商の先頭位置を決めるよう 
に、各桁の傾が入るメモリの位曆を最初に確定しなければなりません。プ ログ 
ラムでいうと 「 WAIE 1」 の部分ですが、レジスタの内容と役目をよく捉えるよ 
うにしてください。 

これで桁数不定の割り算が可能になったわけですが、例の コンピュータ 卑弥 
呼に利用した後の結果に ついては 一切貴任は取れませんので悪しからず……。 
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JScDi こ属するミ；，テクニッ_ 

人間はコンピュータを作った。そして、それは人工知能へと発展し 
つつある。最近ではファジー理論という、人間らしい曖昧さを求めた 
研究も盛んに行われているというではないか。つまり、人間は自分と 
同じことをコンピュータにさせることで、生命を創造した神になろ 
うとしているのだ。 

……だが、おいらの存在を忘れてもらっちゃ困るぜ。コホン!！おいらはコンヒュータなど 
には絶対にマネのできない第三の知能さ。おいらの正体はまだ発見されていないようだか' 誰 
でもおいらの存在は知っているんだ。 

おいらの名は[■夢』……。夢を司る脳に住んでいるのさ。いくらコンビュータが人間のマネ 
をしたところで、夢は見れまい。そこに神の偉大さがあるのだ。 

だけど、おいらにも夢がある。それはおいらの存在をコンピュータ化してもらつことなん 
だ。そのためには、 BCD どうしの比較やゼロチェックが自由自在に、しかもスバヤクできな 

ければならない。 

人工夢脳のために、こういった BCD のミニ•テクを公開する気はないだろうか。もっとも、 
それは人工夢脳へのスタートに過ぎないが……。 

夢見る夢（夢脳） 

■答 

近くて遠い夢の国……。 

行けそうで行けない夢の国……。 

現実のようでどこかが違う夢の国……。 

夢を プロ グラムで実現できるかどうかはわかりませんが、その前に夢を録[由」 
するビデオを開発してほしいものです。見ている時は真実そのもの、しかし実 
際にはデタラメで支離滅裂でウソと幻に包まれたナゾの世界……。そのナゾの 
解明に役立てるなら、 BCD の ミニ •テクなどいくらでも公開しましよう。 

(1) BCD どうしの比較 

基本的には減算をすればいいのですが、下位桁から減算をしていくと全メ 
モリを減算しないと比較できません。人間的な思考法では、上位桁から比較 
をするほうが自然です。このプログラムは 「CP DE ( BCD のアドレス ）， HL 
( BCD のアドレス）」を実行し、ゼロ/キヤリ ー フラグで判定を示すものです。 
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例えば fCP ①，②」をしたければ、 DE レジスタ = ADATA 、 HL レジス 
夕= BDATA として CPBCD をコールします。 


r 

ADATA : 

DB 

一 ， ■ _ 

12H,34H,56H,78H,90H,12H 

BDATA : 

BD 

11H,22H,33H,44H,55H,66H 

CPBCD : 

LD 

B,6 

CPBLP : 

LD 

A,(DE) 


CP 

(HL) 


RET 

NZ 


INC 

HL 


INC 

DE 1 


DJNZ 

CPBLP 


RET 

- - -1 


一① 

—② 


—B = BCD データのバイト鈐 


⑵ BCD のゼロ チェック 

すべての桁（メモリ）がゼロかどうかを調べるわけですが、これも上位か 
ら調べるほうが人間的でしよう。 HL レジスタに調べたい BCI ) のアドレス 
を入れて コールし てください。 


BCDZF : 

XOR 

LD 

A 

B,6 

BCZLP : 

OR 

(HL) 


RET 

NZ 


INC 

HL 


DJNZ 

BCZLP 


RET 



— BCD データバイト教 


(3) BCD の符号に ついて 

BCD の数の中には符号を含むことができませんから、符号が必要な場合に 
は符号用のメモリを1バイト用意しなければなりません。例えば、〇ならプ 
ラス、1ならマイナスと決めておいて、加減算の場合にはその符号と照らし 
合わせてから実行するようにするのです。 

ただし、計算を加減算だけに限定すれば、符号付き数値のように扱う こと 
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もできます。例えば、2桁の BCD 数値で15とあれば、85を 一 15と考えても 
いいわけです。 

(例） 

20—15=05 

20 + 85 = 05 —100以上は計算されない 
このような符号変換は、いわば BCD 版 NEG 命令ということになります。 
次の ブロ グラムは3バイト用の BCD 版 NEG 命令です0 I 1 L レジスタに 
BCD 数値の最下位アドレスを入れてコールしてください0 





BCNEG : 

XOR 

A 


LD 

B ,3 

( BNGLP : 

SBC 

A ,( HL ) 


DAA 



LD 

( HL),A 


DEC 

HL 


LD 

A ,0 


DJNZ 

BNGLP 


RET 

_ J 


— BCD データの バイト数 


いずれも大したテクニックではありませんが、 BCD 数値を自在に扱うための 
基礎として覚えておくと便利です。その程度ですから、これが夢の人工夢脳の 
開発に役に立つことは夢にも思えません……。 
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その 80 





放浪 . 。そ w には未知のものに出会える夢がある。しかし、最近 

はテレビが発達し過ぎたせいで、夢が減ってしまった。 

昔は r 知床旅情 j なんていう歌は、北海道へ旅した者が覚えてくる 

歌だつたのだ。だから、この歌がテレビを通じて流行ったとたん、夢 
が1つ消えた。 


かつて、私は日本最北端の島、礼文島を旅した。ユースホステルでは、元フォークグループ 
の若者が歌を教えていた。それは、 r 旅の終わり』、『島を愛す』という2っの歌だった。これ 
らは、少なくともメジャーな歌にはならなかった。 

もしかすると、この歌はもう誰も知らないかもしれない . 。私は、ときどき口ずさんでは 

たった一人の優越感に浸っている。 

私は、さすらいのプログラマー . 。もちろん' かけ算は知っている。実は X 2 を多用する 

ブログラムがあるのだが、毎回計算しているので時間がかかる。きっと、もっといい方法があ 
ると思うのだが、現状ではわからない。 


しかし、マンン語には未知のテクニックを発見できる夢がある。まるで放浪の旅をしてぃる 
ようだ。私は、そんなマシン語が好きだ。 


さすらい人（礼文島) 

画答 


アレビというのは、夢を与えてくれているようで、実は夢を薄っているので 
す。なぜなら、夢は想像の中から生まれるものだから……。 

マシン語の世界は限りない想像の世界です。そこには、高級言語では味わう 
ことのできない未知の魅力と無限の可能性があります。もしかすると、最も身 
近な未踏の秘境かもしれません。 

. が、マシン語で秘境探検をするには発想の転換が必要です。この x 2 も、 

多用するからには、かけ算処理を省きたいものです。次のブログラムは、 A レ 
ジスタ （0 〜255)を二乗し、その結果を HL レジスタに求めるというものです 




KDATA : 


XTIMX : 


DW 

DW 

0,1,4,9,16,25 

36,49,64,81,100 
• • 

DW 

• • 

63504,64009,64516,65025 

LD 

LD 

L,A 

H ,0 


〇〜 255 を二乗した数値をデ ー 
夕として用意しておく 


A 2 の結果を HL に求める 


I9S 









ADD H し , HL 

し D DE,KDATA 

ADD HL,DE 

LD E ,( HL ) 

INC HL 

LD D ,( HL ) 

EX DE,HL 

RET 


ブログラム自体は、問（その 24) でジャンプ•テーブルとして用いたものと 
似ています。しかし、アイデアは似ていても内容はまったく違います。さらに、 
この X 2 という計算も見本の1つに過ぎません。この用法の本当の価値は、複雑 

な計算をさせた場合に現れてくるのです。 

また、計算結果を直接 BCD にすることもできます。つまり、テーブルの内容 
に工夫を凝らせば、いくらでも応用の範囲は広がるということです。人跡未踏 
のテク ニッ クというわけではありませんが、 マシン 語のち よっ とした秘境とい 

えるでしよう。 

しかし、もとの値が BCD の場合は、簡単にテーブルを利用できません。ナ- 
ブルは十六進数のア ドレスで示されますから、 BCD のままでは虫喰いテーブル 
( A 〜 F のあるアドレスを使用しないテーブル）となってしまうからです。そこ 
で、参考までに〇〜65535の BCD 数値を十六進数に変換し、 HL レジスタに入 
れるブログラムを載せておきます。 


BCDDT : 

DB 

06 H # 55 H ,35 H 

BCDHL : 

LD 

IX,BCDDT 


LD 

HL ,0 


LD 

A,(IX + 0) 


LD 

DE , 10000 


CALL 

KAI 4 B 


LD 

A,(IX + 1) 


LD 

DE , 1000 


CALL 

J 0 I 4 B 


LD 

DE ,100 


CALL 

KAI 4 B 


— BCD の数値（例) 


—10000の位の計算 


—1000の位の計算 
—100の位の計算 
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LD 

A,(IX + 2) 


LD 

DE,10 


CALL 

JOI4B —10 の位の計興： 


AND 

000011 11B 


LD 

E,A 


ADD 

hl # de —1 の位の計興 


RET 


JOI4B : 

LD 

C,A — 上位4ピツトの計!! 


RRCA 



RRCA 



RRCA 



RRCA 



CALL 

KAI4B 


LD 

A,C 


RET 


KAI4B : 

AND 

000011 11B — 下位 4 ビツ トの計興 


LD 

B,A 

AHDLP : 

ADD 

HL,DE 


DJNZ 

AHDLP 


RET 

_ 


このブログラムを利用すれば、例えば「〇〜99の BCD 数値」—「計算結果= 

6バイト （12 桁）の BCD 数値」などといったテーブルも簡単に実現できます。 

もちろん、テーブルのために使用するだけでなく、単なる変換 ルーチンとして 

BCD 数値のままでは不便という場合に活用しても構いません。 

テーブルというのは応用範囲が大変広いテクニックですから、ブログラムが 

複雑になったりダラダラと長くなりそうなときは、テーブル化を検討する価値 

があります。もしかすると、まったく新しい用法や秘術に出会えるかもしれま 
せん。 

『新テクの陰にテーブルあり J 

しれも、マシン語の極意の1つといえるでしょう。マシン話にはこのょつに 
メジャーなテクニックもあれば、日陰の鈴蘭のようなマイナーなテクニックも 
あります。私も、そんなマシン語が好きです……。 
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しいマシン語のために 


次ページ以降に掲載するマシン語 ニモニッ クー覧表は、日本電気株式会 
社の丨 // COM - 82インストラクション活用表」より転載いたしました。 


(注门ニモニック中の略号の患味 


略号 

1 

意 味 

d . n 

e 

e -2 

8 ビット•イミーディエート•データ 
相対アドレシングの変位臛 
e の荑効変位1 


(注2〕フラグの纪号の意味 


紀 

号 

奪 味 


參 

影響 受けない 

0 

リセット 


1 

セット 


< 

不定 


• 

• 

演算 韆果に tt [つた 影響 受ける (① (2K3: あ リ= 下に » 明) 


p ! 

1= 佴》 パリティ. 〇= 奇教パリティ 

V 

1= オーパーフローあり， 0= 才ーパーフ□一なし 

IFF 

P/V フラグ- <|FF) 

■ 

m 

BC — 1= 0 ならば P/V = 0. その他 P/V =1 

D 

Ei 

A=(HL) ならば Z=1. その他 Z = 0 

■ 

n 

B - 1=0 ならば Z=1. その他 Z = 0 


【注 3) 0 P コート•の湓紀の摩味 



' 

B 

■ ■ 

L®_ 

mm 

■OH 

wmm 


1^ 

Reg 

ss 

00 

Reg 

QQ 

Reg 



■ 


B 


■ 

B 

1 



■ 

BC 

00 

BC 

El 





H 




000 



Z 



DE 

01 

DE 

01 

Em 

Q 


01 



B 


001 

z 

Zero 

z 

08H 

001 

HL 

10 

HL 

MM 

El 

P 

IY 

■El 

B3 


H 


010 

NC 

Non Carry 

c 

10H 

010 

SP 

11 

AF 

11 



SP 

11 

□ 


B 


011 

c 

Carry 

c 

18H 

011 









□ 


D 


100 

PO 

Parity Odd 

P/V 

20H 

100 









n 


B 


101 

PE 

Parity Even 

P/V 

28H 

101 






■ 




IQ 

D 


110 

P 

Sign Positive 

s 

30H 

no 






■ 





B 

la 

111 

M 

Sign Negative 

s 

38H 

111 


d . n : 8ビット•イミーデイエート•データ 
e :相対アドレシングの変位* 
e 2: e の寶効変位* 









ック表 


命令!? 




00 001 
00 011 


00 000 
00 
00 


圃■■關 

■■■■■I 























B 




!- - -；— - -'f-'*M，' : ' v -' 一 -,- ぐ --,:〆: 
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